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PROGRAM HIGHLIGHTS INCLUDE: 

•Complete amateur radio routine Output/input for calisign, 
time/date contact, frequency, mode, location, name, signal 
report, QSO end time, QSL sent/received confirmation. 
•Comprehensive amateur bX prefix file Information on DX 
prefixes, zone, country, great circle bearing, access anytime 
•Q-signal file All international Q-signals and ARRL net 
•Special net log routine Review and print contact stations, check 
in/out times, net control name and calisign, net start/end, net 
operating frequency 

•Operating frequency schedule Allowable modes and require- 
ments for 80- , 40- , 20-, 15-, 10-, 6-, 2-meter bands 
•Propagation forecast Based on solar flux and K- index 
•Memo/message pad CW contacts; video and print notation of 
QSO information or copied message 

Available for single disk, 32K TRS-80 system 

*Two drives will greatly increase storage capabilities* 
$24.95 

TcC TIII-80 lefluicifc CKchcingc 

# 17 BRIAB CLIFF DRIVE MILFORD. NEW HAMPSHIRE 03055 
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SoftSide magazine is continually seeking original articles and 
software for publication. Imagination and variety in concept and 
content are the rules at SoftSide — not the exceptions. Articles are 
purchased on a per-page basis, based on content and applicability. Our 
policies with respect to software purchase are highly individualized, 
and offer the programmer several options, including one-time 
publication rights, outright purchase, and royalties on sale of 
pre-recorded cassettes. For more information, please write: SoftSide, 
PO Box 68. Milford, NH 03055. 

For uniformity, we have adopted the Radio Shack TRS-80 Level II 
BASIC as the BASIC dialect used within the pages of this magazine. It 
was chosen because it stands to become the most commonly used 
dialect among microcomputer users and because it shares a common 
heritage with the many microcomputer languages produced by 
Microsoft. 
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SoftSide Publications, 17 Briar Cliff Dr. 
Milford. NH 03055 Telephone: 603- 
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Bo.x 68. Milford, NH 03055. Hntire 
contents copyright 1979 >^ SoftSide 
Publications. All Rights Reserved. 
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The really important advances in civilization, like the be- 
ginning of agriculture, indoor plumbing and SoftSide, are often 
made possible by advancements in measurement technology. 
For example, the rise of civilization in ancient Egypt was made 
possible by the invention of the calendar, a method of measuring 
time in order to predict annual flooding of the Nile River. Far- 
mers learned not to plant crops just prior to the deluge and lose 
them just before harvest. It became possible to take advantage 
of the flood rather thatn consider it a disaster. 

Here In our research lab, the staff has been conducting pri- 
mary experiments Into the measurement of flow, the quality that 
makes games fun. We haven't found it helpful to measure Indi- 
vidual elements, since the complex relationship of the factors 
makes an overall assessment more desirable. Currently, we are 
experimenting with two units of measurement: ASH and SAK. 
ASH is an acronym for Adult Sleepless Hours; SAK represents 
Screaming And Kicking. We have found that flow tends to affect 
adolescents and adults In different ways, thus making It neces- 
sary to devise separate categorical measurement methods. 

ASH The number of hours past normal bedtime that an adult 
male will continue playing a computer game, even though he 
must go to work the next morning 

SAK The number of adults required to drag a screaming and 
kicking adolescent female away from a computer within the time 
period of one minute from start of effort 



The ASH Test 

Introduce two adult males of slightly-above-average ability 
in any field to a computer game one hour before bedtime. One 
of them should have a good general knowledge of computers; 
the other must be an enthusiastic newcomer. A good way to se- 
lect such people is to choose as the first person a regular reader 
(6 months or longer) of SoftSide and for the second, a new sub- 
scriber. Select people who normally retire nine hours before the 
last possible moment they could leave for work and not be late. 
The average of the number of hours past normal bedtime that 
the two play the game is the ASH rating for that game. Should 
either subject still be playing one hour past time to leave for 
work the next day, terminate the experiment and record an ASH 
of 10 for that person. 
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The SAK Test 



The selection of a female subject for this text doesn't reflect 
sexism, but rather the fact that church youth groups (from which 
the subjects were drawn) tend to have more female than male 
participants. For standardization purposes, the ideal subject is 
defined arbitrarily as a 13-year-old girl weighing 95 pounds and 
described by her parents as "difficult to handle". Adults in this 
test should consist of an evenly divided group of women and 
men, all of whom are healthy parents between the ages of 25 and 
40, with an average weight of 125 pounds. To reduce the poten- 
tial for damage to the test subject and equipment, any adults 
weighing over 160 pounds soaking wet were eliminated from the 
test group. Introduce the subject to the game one hour before 
it is necessary for her to go home. At the time when it's abso- 
lutely necessary to leave, she is to be told she must give up the 
computer so the adults can play Adventure. The number of 
adults necessary to enforce this edict and actually accomplish it 
within one minute is the SAK rating for the test. If ten adults fail 
the rating is established at 10. 



General Considerations 

Arbitrary minimum and maximum ratings of and 10 have 
been established for both measurements. For acceptance as an 
article in SoftSide, we require an average (ASH + SAK)/2 rat- 
ing of 2. Here are some typical test results made on programs: 

Divebomb ASH 1 SAK 1 , X-Wing Fighter ASH 1 SAK 5 
Adventure ASH 8 SAK 7. 

The outstanding judgment manifested in computerists who 
subscribe to SoftSide leads us to propose an alternative method 
of testing: we believe our subscribers have such excellent crit- 
ical judgment that their personal estimates of the SAK and ASH 
ratings for a game should be so close to actual test results as to 
make laboratory experiments unnecessary. We invite you to 
make your own assessments. Let us know how you rate your fav- 
orites. 

While we're still on the subject of measurement, the results 
of our first poll so impressed us that we've decided to ask you to 
respond to another. As a result of our first poll, we've launched 
Cassette SoftSide, PROG/80 and BUS-80 and clearly defined the 
content of SoftSide. Please use the poll to indicate your desires 
for the future direction of SoftSide. 



J 



■SOFTSIDE READER POLL = 



If you were publisher of SoftSide and had $1 .00 per copy to spend on 
articles after you paid for printing and postage, how many cents would 
you spend for each of the following: 

Artwork Feature Program Moderate Length Programs 

Short Programs Editorials Explanatory Articles..... 

Take A Part Programming Hints Other (please list): 



Please go back through these and place a plus + by things we should 
have more of, and a minus - by things we already have too much of. 

Out of every 100 programs in SoftSide, how many should be: 

4K Games..... 16K Games Personal Applications.... Other.... 

What other categories do you suggest: 

Here is a list of programs and articles from recent issues. Please rate 
them using this scale (1 to 9) 

You spent money 

Garbage for this?? Average Good Outstanding 

1 2 3 4 5 6 7 89 

,.'Round the Horn ....Can You See Through This? 
. .Writing Good Computer Games ..Personal Finance 

..Kiddy Slot ....Jig Saw 

..Ten Pin Bowling ....Don't It Make My Brown Eyes 
..High Speed Graphics Blue? 

.Comput-A-Sketch Safari 



..Programming Hints 

..Form 1040 

..Concentration 

..Elements Quiz 

..Tarot 

..Metric/English Converter 



...Series Circuits 

...Take A Part 

...Rabbits & Foxes 

...Spring Flowers 

...Pages from The BASIC Handbook 



Please go back over the list and place a check mark after any program 
you actually typed into your computer. If you wish to give ASH or SAK 
ratings to any programs, indicate A or S and place your rating after the 
check mark. (Note: see editorial for ASH and SAK explanation) 

Do you agree with our policy of emphasizing games for 16K Level II 

TRS-80 computers? 

What type of equipment do you presently use: 

TRS-80..... Other (specify) Level If 

4K 16K 32K,.... Printer 1 Disk..... 2D...., 

3D..... 4D Speech Unit Other Equipment..., 



SEND REPLIES TO: Softside Reader Poll POBox68 Milford, N HI 03055 
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Turn Your TRS^ Into A 
Computer Terminal 

Radio Shack gives you a TERM program with its R$-232-C board, but that's just 
to whet your appetite. ST80 was written by the author of Renumber 1.2, so you 
know what kind of features to expect: CONTROL key, ESC key, REPEAT key, a 
RUN key, and a functioning BREAK key. Also lets you list incoming data on 
your lineprinter. You can reprogram the RS-232-C switches from the keyboard, 
making baud rate changes simple. Full upper/lower case keyboard and video 
driver are included, plus instructions on how to make a simple hardware 
modification to display upper/lower case letters (This change is optional. 
Unmodified TRS-80 will display capital (upper case) letters only.). Supplied on 
tape, loads with SYSTEM command. Disk users can also load and run the 
program under DOS. 

Requires at least 16K Level II BASIC, a RS-232-C serial board, and a modem to 
work with a timesharing computer. The cursor control format includes clear 
screen, backspace, advance, down and up space, clear to end of line 
and home, using the most common control character format currently in use 
(similar to CDC terminals). Level II, 16K Price, $49.95 on tape 
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NEW ST80D FOR DISK 

Yes! Data Spooling is here, and MORE . . . 

For 32K Disk systems — $79.95 



TRS-80 Sof luKifft CxclMiAtc 
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1^ your computer-puppet; am hidden aboard 

Princess Leya's ship. It's possible^ although very 

difficult, to save the day by rescuing the princess 

and recovering her necklace of Shinestones and the 

treasury of the Freedom Fighting Force. 

Even if we are unsuccessful, anything 

we can do to deter General Doom may help win 

a victory in the battle for peace in the galaxy. 



by LANCE MICKLUS 



The evil General Doom and 
his Roche Soldiers are ready to 
launch an attack against the Forces 
of Freedom, led by Princess Leya. 
Enroute to a secret command 
center on the planet Harris 7, 
Princess Leya's ship was attacked 
by Doom. She is now being held 
prisoner on one of his battle 
cruisers. It is a sorry day indeed! 

The capture holds extra prizes 
for Doom and his men: onboard 
Princess Leya's ship is the entire 
treasury of her Freedom Fighting 
Force in a chest containing - 
Melidium Crystals, the currency 
used in this galaxy. The Princess 
is also wearing a necklace made of 
Shinestones. Fncoded in one of 
the stones is the location and 
strength of her Freedom Fighting 
Force. Hopefully, Doom has not 
yet discovered the secret of the 
necklace. 

I, your computer, am your 
puppet. I'm hidden aboard the 
Princess's ship. It is possible, 
although very difficult, that we 
may be able to save the day by 
rescuing Princess Leya, her neck- 
lace, and the treasury. But even if 



we don't, anything we can do to 
foil General Doom's plans may 
help win a victory for peace in the 

galaxy. 

We must be very careful of 
guards who are all over the ship. 
We could easily be caught and 
imprisoned. Sometimes you may 
only have enough time to give me 
one command, which if not the 
appropriate action to take, could 
easily end the game for both of us. 

I understand ordinary English 
in one- or two-word commands If 
you want me to go somewhere, just 
give me a direction I can GET or 
DROP something just by your 
typing GET or DROP plus the 
name of the object. You can SAVE 
a game on either tape or disk by 
typing SAVE. A previously saved 
game can be restored with the 
command LOAD. Other words I 
understand include HELP, INVEN, 
LOOK, SCORE, and QUIT In 
addition to these, there are many 
other words in my vocabulary The 
fun of playing ADVENTURE is not 
only trying to figure out what to do, 
but how to explain it to me. 




TYCOON 



Take the helm of a small 
manufacturing business - set 
pay standards, advertising 
budgets, etc. Your progress is 
well-charted. 

This game can accommodate up 
to four would-be financial 
wizards... last one to make 
510,000,000 becomes the jani- 
tor! 
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HISTORY, HINTS, AND TIPS 



The game of ADVENTURE 
was developed several years ago at 
the Artificial Intelligence Lab at 
Stanford University. The original 
game was written in FORTRAN 
and required a rather large amount 
of disk drive storage space. The 
object of the game was to explore 
an immense cave and bring back to 
a building aboveground the many 
' treasures found beneath the earth. 

Had it not been for the 
difficulties involved in implement- 
ing the game on various computer 
systems, ADVENTURE might very 
well have become more popular 
than STAR TREK. With the 
advent of microcomputers, a new 
effort was made to overcome the 
need for disk drives and large 
amounts of memory. As a result of 
this effort, several new versions of 
ADVENTURE have been released, 
not only for the TRS-80, but for 
other systems as well. Even 
though these new micro versions of 
ADVENTURE may deviate sub- 
stantially from the original, they all 
share that same childish logic 
characteristic of ADVENTURE. 

In playing the game, you are 
basically trying to solve a puzzle. 
At times you may find yourself 
running around in circles; you may 
even go somewhere and find you 
actually went nowhere. Use your 
imagination and apply childlike 
logic. Finally, never forget that 
everything in this strange com- 
puter-created world has a pur- 
pose... there are clues every- 
where! 

Good luck! 



109 CLS: PRINT" 
DOG STfiR 

BV LfMl HICKLUS, 
HUSXMh VT. 85404 
C0PVRI6HT 1979" 
150 CLEaR200:RflNDOI1:DEFINTfl-2 
200 GOSUB30300 

450 LC=2:SL=64:H.=4:6F=M:RV=163% 
600GOTO10300 

2125 IFTC<250RRND(GF)OlTHE^G425 
2150 IFTC=200LET6F=20 

2175 iaC<30RLC=90RLC=260RLC=360RLC=27THEN2425 
2200 iaD26flNDLC<31THEN2425 

2225 PRINT"HOLV SMOKES. AN ARMED GUARD JUST WALKED IN. " 
2250 6OSUe20350:IFVBO12ORNOO15THEN55?5 
2275 X=13:6OSUB21450: IFVO-1THEN5575 
2300 lFBL=0aS: PRINT" I'M OUT OF AMMUNITION. ": PRINT :GOTO5600 
2325 PRINT'ZZZflPi NO MORE GUARD. " 
2350 BL=BL-1 : IFBL=0PRINT" I 'M OUT OF AMMUNITION. " 
2425 IFMDOTCTHEN2550 
2450 X=22:GOSUB21450; IFVO-1THEN2550 
2475 PRINT"VOUR MCDONALD'S HAMBURGER IS COLD. " 
2550 GOSUB20350:TC=TC+1 
2575 IFVB=0RNDNO=0THEN2650ELSE2800 
2650 PRINT"! DON'T KNOH HON TO DO THAT. ":G0T02125 
2725 PRINT"N0THIN6 HAPPENED. " : GOT02125 
2800 IFVB>10RN0>7THEN3i75 
2825 IFNO=0THEN2650 

2850 IFDS<LC,NO-1)=0PRINT"I CANT GO THAT HAV!":G0T02125 
2875 IFDR«IS:6(LC,N0-l)>2»©DS<LC,f«)-l)<6PRINT"I CfW'T K) THAT M 
AV. FLIGHT DECK DOORS ARE OPER 
N0AIR!!!":G0T02125 

2900 IFNO=3ANDLC=31ANDNOTDJPRINTM0$.GOTO2125 
2925 IFLC=35ANDDS(LC,NO-l)=36flNDOB(21,l)O0PRINT"THE ROBOT HON'T 
LET ME THROUGH ":G0T02125 
2950 IFLC=17AND0e(13,l)=17THEN5575 
2975 IFLC=9AND0B(5/1)=9THEN5575 
3000 IFLC=90RLC=17LETHE$(LC>="" 
3025LC=DS(LC,NO-1) 



3850 iaC=54LET»C$(LC)="" 

3075 iaC=26THEN11880 

3100 GOTO10300 

3175 IFVB=3GOTO10300 

3250 IFVBO2THEN3700 

3275 IFHO=0PRINT"1 iXW'T KHOH l#«T fl "i CHR$(34)i f«»<0)i a«$(34)i 

" IS.'':(iOT02125 

3300 IFCR>5PRINT"I CflN'T CflRRV ANY MORE. 

HINT; DROP S0I1ETHIN& •':GOT02125 

3325 FORI=1TOLO: IFOB(L 0)=NOXTHEN3350ELSENEXTI :GOTO2650 

3350 IFOB(Ll)=-lPRINT"rH ALREflDV CflRRVING IT. ":G0T02125 

3375 IF0B<L1><>LCPRINT«I DON'T SEE IT. ":G0T02125 

3400 IFN0O37THEN3475 

3425 X=13:GOSUB21450:IFY<>-1PRINT"I DON'T HRVE fl BLfiSTER TO PUT 

IT IN.":60T02125 

3450 BL=4:OB(L1>=0:PRINT"I1V BLftSTER'S RELOflDED. ":F0RI=1T01:NEXT 

I:G0T02125 

3475 IFN0=150RN0=250RN0=34PRINT"HE LOOKS PRETTV HERN TO HE. ":GOT 

02125 

3500 CR=CR+1 : 0B( L 1)=-1 : PRINT'O. K. " : F0RI=iT01 ; NEXT! 

3525 IFN0=14flNDN0TCMPRINT"fl VOICE SRVS: "iCHR$<34)i"SESflME"iCHR$ 

<34);".":ai=-l 

3550 IFNO=22flND«D=0LETI1D=TC+50 

3575 IFN0=12LETHEI(2)="" 

3600 IFre=13LETf£$<7>="" 

3625 60T02125 

3700 IFVB04THEN3875 

3725 PRINT'I'M CfiRRVINQ;" 

3750 K=0:FORI=1TOLO:IFOB<L1>=-1PRINTOB$<I).K=1 

3775 NEXTI:IFK=0PRINT"NOTHIN6" 

3800 PRINT :G0T02125 

3875 IFVBO5THEN3950ELSEGOSUB21050:QOTO2125 

3950 IFVB<.>6Ti€N4200 

3975 IFNO=0THEN3275 

4000 iaC=2PRINT'*THERE'S NO ROOM HERE. "■G0T02125 

4025 IC=0:FORI=lTOLO:IFOB(Ll)=LaETIC=lC+l 

4058 NEXTI:IFIC>12PRINT"THERE NOT ENOUGH ROOM. GET RID OF SOHETH 

INa":G0T02125 

4075 FORI=0TOLO: IF0B(L 0)=NOXTHEN4100ELSENEKTI :GOTO2650 



4100 lF(8(Li)<>-lPRINT"I'H NOT CflRRVIWS IT. ":Q0T02125 
4125 CR=CR-l:ffi(Ll)=LC:PRINT"O.K. ":F0RI=iT01:fCXTI:a)T02125 
4200 IFVBO7THEN4200 

4225 IFHEJdOs-THENPRINT'HOH AH I SUPPOSED TO KNOH HHflT TO DO? 
" : (jOT02125ELSEPRINTHE*(LC) : GOT02i25 
4300 IFVBO8THEN4750 

4275 IFH0TBnHEN44?5ELSEPRINT"PRESS (ENTER) HHEN REflDV TO : RECO 
RD :" 

4400 GOSUB22000:GOTO4S25 

4475 IFNOf(0)=""PRINT"TRY SOMETHING LIKE "; CHR*(34); VB$(0); " FIL 
ESPEC"; CHR$(34)i ". " : G0T02125 
4500 OPEH"OM,NOf(0) 
4525 FORI=0TOLO 

4550 IFBTTHE»>RINTI-1, OB(L0)/Oe<Ll>,OB(L 2)ELSEPRINTtL 0B( L 0) 
;0B(Ll);Ge(L2) 
4575NEXTI 

4608 IFBTPRIMTI-L TB, TC CM:PRINTi-L DR, BL, MD:PRINTi-L GF, DJ, CR.P 
RINTI-LLC 

4625 IFNOTBTPRINTtL TBi TC; CH; DR; BU HDi GF; DJ; CRj LC 
4650 IFN0T6TCL0SE 
4675PRIMT"0.IC':60T02125 
4750 IFVB09THEN5i58 

4825 IFN0TBTTHEN492SELSEPRINT"PRESS (ENTER) UHEN REflDV TO * REflD 
TAPE *" 

4850 GOSUB22000:GOTO4975 
4925 IFHO*(0)=""THEH4475 
4950OPEN"IM,HOI(0) 
4975 FORI=0TOLO 

5000 IFBnHENINPUTt-L 0B( L 0)/ 0B( L 1), 0B( 1, 2)ELSEINPUTil. Oe( L 8) 
.0B(L1),0B(L2) 
5025NEXTI 

5050 IFBTINPUTi-LTB,TC.C«:INPUT#-LDR,BL,HD:INPUTI-l,GF,DJ,CR:I 
fPllT«-l,LC, 

5075 IFNOTBTINPUTil,TB,TC,C«,DR,BLHD,GF,DJ,CfcLC 
5100 IFNOTBTaOSE 
5125 GOTOi0300 

5150 IFVBO10THEN5225ELSECLS:J=0:6OTO11200 
5225 IFVB011THEN5725 
5250 IFNOO10THEN2658 



5275 iaC02flNDLC011PRINT"HHflT BUnon":60T02125 

5380 IFLC=ilflNDN0nBLETTB=-l:PRINTN2$:G0T02125 

5325 IFLC=llflNDTBLETTB=8:PRIMTN3*:G0T02i25 

5375 X=12:GOSUB21450:IFVOiTHEN2725 

5425 X=24:6OSUB21450:IFVOiTHEN2725 

5450 IFN0TTBPRINTN3*:G0T02725 

5475 IFN0TDRPRINTN4$:G0T02725 

5500 GOTOill50 

5575 aS:PRINT"H E L P ! ! !":PRINT 

5600 PRINT"ROCHE SOLDIERS ARE EVERVHHERE. I'VE BEEN CflPTURED. " 

5625 PRINT" I'H NOH fl PRISONER HOE IS ME... 

n 

5650 GOTOil500 

5725 IFVBO12ORNO=0THEN6025 

5750 IFBL=0PRINT"BUT I DON'T HflVE ANY flMHUHITION LEFT. ":60T02i25 

5775 X=13:OOSUB21450:IFVO-1PRINT"BUT I'H NOT CflRRVING fl BLftSTER 

.■:G0T02125 

5800 X=NO:GOSUB21450:IFV=-1PRINT"I CflN'T. I'H HOLDING IT. ":G0T02 

125 

5825 IFN0=34PRIHT"ZZZflP! • :BL=BL-i:G0T02125 

5850 IFYOLCPRIHT"I DON'T SEE IT. ":(iOT(ei25 

5875 FORMTOLO: IFOB(L 0)=NOXTHEN590eELSENEXTI :GOTO2650 

5900 OB<Ll)=0:FORMTOl;rCXTI:PRINT"ZZZflP!!! THE •>NO*<NO);" V 

flPORIZED. " 

5925 BL=BL-l:IFBL=0PRINT"I'n OUT OF flHMUNITIOH " 

5950 G0T02125 

6025 IFVB013THEN6275 

6050 IFHO=0PRINT"SflV HHflT?":G0T02125 

6075 X=14:<iOSUB21450 

6100 IFVO-l(lRN0Oi9PRINT"0. K. ";N0$(N0):G0T02125 

6125 IFDRIjOT02725 

6150 DR=-1 : PRINT'fl VOICE CONES OVER THE P. R SVSTEH AND SflVS ; 

0PENNIN6 FLIGHT DECK DOORS 



Use the DOWN ARROW I 
key to line feed here 

6175 IFLC>2flNDLC<6PRINT"^ -— ' 

VIPS!!! THERE'S NO flIR!!! CROflK..":END 

6200 60T02125 

6275 IFVBO14THEN6750 

6300 IFN0O28flf8Ml<>16fM>t«K>llfM)N0<>33T«N2658 




6325 IFNO»28THEN6550 
£3Se IFN0O16THEHg458 

6275 IF0B(6,1)=-1PRINT"S0RRV. I'M HOT fl CflRTOGRflPHER. ":G0T02125 
64ee IF0B(&1)=LCPRINT«TRV GET HflP. ■:G0T02125 
6425 PRINTMT'S NOT HERE. ":60T02125 
6456 K^:G0SUB21458: IFVOLCANDVO-1THEN6425 
6475 IFN0=11PRIHT"IT SftVS: » WEDS TURBO «" 
6566 IFN0=33PRIHT'IT SRVS: » OUT OF ORDER «" 
6525G0TO2125 

6558 IFLC013PRINT"! DON'T SEE flNV. •.G0T02125 
6575 PRINT :PRINT"IT SflVS ON THE HflLL " 
6666 PRINT*» VOUR MOTHER'S 60T fl BIG NOSE «' 
6625 PRIKr''» KILROV NflOE IT HERB TOO «" 
6656 PRINT"» SflV SECURITV «" 
6e75G0T02125 
67SB IFVB015TIEN6975 

6775 IFH0=6PRINT"MHBT'S ft "; N0t<8)i •?" :G0T02125 
6888 IFN0O22PRINT'1X]N'T BE REDICULOUS. ■:G0T02i25 
6825 X=22:G0SUB214S8:IFVO-iPRINT-I'H NOT HOLDING IT. *:G0T02i25 
68S8 FGRMTCLO: IFaB(L8)=22T>EN687SELSEICXTI:PRINT*I DON'T KNOH 
WERE IT lS.':Qm2i2S 

6875 O6<L1)=0:PRINT'CHIIP - CHllf>. HUNfl GOOD ' 
6988 FORMT01:NEXn:OOT02i25 
6975 IFVBO160RN0O23(KLCO16THEN7125 
7866 X;^:G0SUB2i4S8:IFVO-iPRINTKL$:Q0T02125 
7825 Oe<lLl)=8:OB(14,lM6:CR=CR-l:PRINTH2$ 
7656 G0TQ2125 

7125 IFVBO180RN0O36TNEN7275 
7158 IFN0O360RLCO31THEN2658 
7175 X=17:G0SUB21456:IFYO-lPRINTH3f:G0T02125 
7266 HE*<31)=":DJ=-1:PRINTH4*:G0T02125 
7275 IFVBOi9QRN0=6THEN7686 
7366 IFN0O34PRINT"THftT'S STUPID! ";60T02125 
7325 lFLCO35PRINTH5$:G0T02125 
7356 }{=22:G0SUB21456:IFVO-lPRINTH6$:G0T02125 
7375 IFN0=35PRINTH7»:G0T02125 
7486 IFN0O34PRINTN0I(6)jH8$:G0T02125 
7425 IFTOHDPRIHTN9$:60T02125 
7456 FORMTOLO: IFISd, 6>::34THEN747SEI.SENEXTI :GOT02656 



CprJoba / 




by George Blank ^' 






•c. 



RELIVE THE DAYS 

OF WOODEN SHIPS AND 

IRON MEN! 

This program simulates three 

S^ clipper ships setting sail from 

\ New York on the same day in a 

race to San Francisco for 

prestige and profit. As the 

captain of one ship, you must 

find favorable winds and ocean 

currents allowing you to be the 

first to reach San Francisco. The 

passage around Cape Horn is 

dangerous; many a voyage 

has ended in tragedy there. 
Sailing through the doldrums . . . 
•rif^^ DFX-^-jr well, let's not spoil 

'cAPK HORN all the suspense! 

Draie ?assat^ Level 11, 16K-$9.95 



T|« 
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7475 K»I:F0RMTGL0:IFI]e(he)=22THEN7SeeELSErEXTI:Q0TO265e 

7589 PRIMTHB$:ff$(35)=" 

7525 Oe(ICl)=e:OB(Ll)=0:F(]RMTOl:NEXTI:GOTO2125 

7698 IFVB017THEH77ee 

7625 PRINTN0$(9):(j0T02125 

7799 IFVB029THEH7975 

7725 IFN0=8THEH2658 

7759 X=N0:Q0SUB21458:IFY=-lPRIMT"rH CflRRVING IT. THAT'S INPOSSI 

BLE":G0T02125 

7775 IFV=LCTHEN7859 

7899 IFNO<110RNO=190RNO=290RNO=39THEN2659 

7825 PRIKTM CflN'T HIT SOMETHING I CflN'T SEE. ":G0T02i25 

7859 IFNO=150RH0=250RNO=34PRIHT"I'D RATHER NOT. HE MIGHT HIT HE 

BflCK!-:G0T02125 

7875 IFN0=35PRINT"THAT'S NOT NICE! " :G0T02125 

7999G0T02725 

7975 IFVB021THEN899eELSEPRINT"rH NOT STRONG ENOUGH TO KILL flNV 

THIN&":G0T02125 

8999G0TO2659 

19399 CLS:PRINTDS$(LC):A$="" 

19295 IFLC=35LETGF=19 

19499 IFLC=7THEN19789 

19459 K=8:F0RMT0L0:IF0B(Ll)OLCTIEN19699 

18598 IFK=8LETK=1: PRINT :PRIHT'AROUW) fE I SEE:":A$=0B*(I):G0T0ie 

688 

18558 IFLEN(A*)+5+LEN(0BS( I ) )>SLTHEfPRINtA$ : LETA$=OB$< I )ELSEA$=A 

$+• "+OB$(I) 

19699 NEXTI 

19659 IFA*0"PRINTfl$ 

19788 PRINT :PRINT"OBVIOUS DIRECTIONS ARE ': :K=8 

19758 F0RI=8T05:IFD5<LC, I>=8THEN18988 

18888 IFKOePRINT", '; 

19859 PRINTN0«I+1); :K=1 

19999 NEXTI 

19959 IFK=8PRINT"UNKN01«'; 

11999 PRINT". ":Q0T02125 

11159 CLS:G0SUB21959 

11299 IFJ>«>RINT"HE HAVE FAILED OUR HISSIOIf 

THE FORCES OF PRINCESS LEVA HILL BE CONQUERED. 



11256 IFJ=SCPRINT"HE ARE HERDS 

THE FORCES OF PRINCESS LEW HILL CONOJER THE EVIL ROCHE 

SOLDIERS. (WD FREEDOH HILL PREVRIL THROUGHOUT THE GdflXV. 

iUee IFJ>0flNDJ<SCPRM"HE HflVE ICLPED THE FORCES OF PRINCESS LE 

VR DEFEND THE 

GfiLflXV. LONG LIVE THE FORCES OF FREEDOM! 

If 

11500 PRINT 

11550 INPUT"DO VOU HflMT TO PLfiV flGflIN (V OR N)";fl$:fi$=LEFr$(fl$.l 
) 

11600 IFftl="V"THEN150ELSEEND 

11800 CLS:PRINT"ft VOICE BOOHS OUT, "; CHRI<34)i "HHO GOES THERE"; C 
HR$(34) 

11850 GO5UB20350 
11900 IFVBO13ORNOO30THEN5575 
11950 PRINTNl* 
12000 GOSUB203S0 

12050 X=31:GOSUB21450: IFVO-1THEN5575 
12100 IFVBO17ORNOO31THEN5575ELSE10200 

20350 IFBTTHENINPUT'HHRT SHOULD I DO"iCH$ELSELINEINPUT"HHRT SHOU 
LD I 00? "iCHf 

20395 VB*<0)="":NO*(0)=":VB=0:NO=8:IFLEN(CH$)=0RETURN 
^400 FflRZL=lT0LEN(CH*):IFMID$<CH*,2Ll)O" "THENVB*<0)=VB*(0)+« 
ID*<CH$,ZL,1):NEXT2L 

20500 F0RZL=1T0LV: IFVB*(ZL)O"flNDLEFT$(VB$<0),LEN<VB$(ZL»)=VB* 
(ZL)THENVB=ZL : GOTO20600ELSENEXTZL 
20550 VB=0:NOf (0)=VB$(0> :GOTO20650 

20608 iaEN(VB$(0) )+l>=LEN(CN$)THENNO=0 : RETURNEL5ENO*(0)=RIGHT*( 
Cil$, LEN(CH$)-1-LEN( VB$(0» ) 

20650 F0RZL=1T0LN : IFN0$(ZL)O" •flNDLEFT$(NO*<0), LEN(NO$(ZL) ) )=N0$ 
(2L)THENN0=ZL : GOTO20800ELSENEXTZL 
20700 l«)=0:RETURN 
20800 F0RZL=lT01:NEXTZL:RETl«a< 
21050 J=0 :FORI=1TOLO: IF0B<L 1)=1LETJ=J+0B(L 2) 
21100 NEXTI:PRINT"ajT OF ft WKIHUM OF"; SC; "POINTS, VOU mVE";J;" 
POINTS. " 

21150 IFJ=0PRINT"l€'RE NOT DOING TOO GOOD. " 
21200 RETURN 



21450 FORZL=8TOLO:IFOB(ZL,0)=XTHENV=Ce<ZLl):GOTO21500ELSENEXTZL 

;V=-99: RETURN 

21500 F0R2L=1T01:HEXTZL:RETURN 

22000 fll=INKEV$ 

22010 IFINKEV$=""THEM22010ELSERETURN 

30300 SC=215 

30450 TraFF:IFPEQ«16396)=201THENBT=-lELSEBT=0 

30600 LV=21:DIHVB*(LV) 

30650 VB$(1)="60- : VB$<2)="GET" : VB$<3)="L00K" 

30700 VB*(4)="IMVEN":VB$(5)="SCORE":VB*(6)="DR0P" 

30750 VB$(7)="HELP" :VB*<8)="SRVE" : VB$(9)="L0flD" : VB»<10)="QUIT" 

30800 VB*(11)="PRESS" : VB$(12)="SH00T" : VB$Ci3)="SflV" 

30858 VB$(14)="RE«>":VB$(15>=»EflT":VB*<i6)="CSflVE" 

30900 VB$<17>="SH0H-;VBI(18)="0PEN":VB$(19)="FEED" 

30350 VB*(20>="HIT":VB*(21)="KILL" 

31100 LN=37:DIHN0$(LN> 

31150 NO$(l)="NORTH":NO*<2)="EflST":NO$<3)="S0UTH" 

31200 N0$<4)="HEST":N0$(5)="UP":N(»<6)="D0HN" 

31250 HO*<10)="BUTTON":NO$(ll)="TftG":NO$<12)="FUEL" 

31300 N0*(13)="BLflSTER":N0*(14)="C0MMUNICflT(3R":N0$<15)="GUflRD" 

31350 HC»(16)="HflP":N(»(17)="KEVS»:NW(18)="NECia.flCE" 

31400 N0$<19)="SESfflC" :NO$<20)="GRflFFITr 

31450 N0*<21)="CflPE":NC»(22)="HflWURGER" 

31500 M0$<23)="TflPE":N0$(24)='TURB0" 

31550 M0$(25)="SCIENTIST":N0*<26)="PLflNS" 

31600 N(»<27>='Sa01RTIC' :N0*(28)="DEVICE' :H(»<29)="GUN" 

31650 MO*<30)="SaURlTY":NO$(31)="I.D. •:H0*(32>="CRVSTflLS" 

31700 N0*<33)="SIGN" :N0*(34)="R0B0T" :N0*(35>='PRINCESS" 

31750 NO$(36>="D0OR" :H(»(37)="flfl1UNlTI0N" 

31900 a=37:DI«DS$(a) 

31950 DSI<l)="rM IN THE PflSSENGER ( STORflGE COMPflRTICNT OF HV S 

PflCE SHIP. 

THERE'S m EXIT HERE TO LEftVE TJt SHIP. " 

32000DflTR2.0/0.e.0.3 

32050 DS$(2>="rH IN THE COCKPIT OF HV SPflCE SHIP. 

fl LflRGE RED BUTTON SflVS » PRESS TO BLflST OFF «" 

32100 DRTR0.0.L 0,0.0 

32150 DS$<3)=''rH STANDING NEXT TO HV SPflCE SHIP WICH IS LOCflTE 

DONfl 

HUGE FLIGHT DECK. " 
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32258 l>S$<4)=*rH OUT ON THE FLIGHT DECK OF GENERflL DOOH'S BflTTL 

E CRUISER. ' 

3238emTfl3/S.4,4.a8 

32356 DS»(5}>DSI<4) : DATR4. 6i 5, 4, a 8 

32468 DSI<S)='rH IN R HRLLHRV. THERE ARE DOORS ON HI SIDES. 

THE DOOR TO THE NORTH SflVS: » CLOSED FOR THE DflV «" 

32456DRTn7.8.&5.6,6 

32588 DS$<7)="rH IN TJC SUPPLY DEPOT. 

AROUND HE I SEE: 

ALL KINDS OF THINGS" 

32558DflTRe,8,6.8.e,e 

32688 DS$<8)='rH AT THE END OF ONE OF THE HALLkHVS. 

I CAN HERE VOICES NEARBV. SOUNDS LIKE GUARDS. ' 

32658DftTfl6,iae,9,8,12 

32788 DS»<9)=" I'M IN THE STRATEGY PLANNING R00H.":DATA1L 8, 8, 8/8 

.8 

32758 DSI<ie)="I'M IN THE DECtWTAMINRTIOH AREft " :DATA8, 14, 8, 8, 8, 

8 , 

32888 DS$<ii)='THIS AREA IS THE TRACTOR BEAH CONTROL ROOK 

A LARGE SIGN WARNS: » DO HOT PRESS ANV BUTTONS «" 

32858DRTA8i8,9,8,8,8 

32988 DSt<12)=''rH IN ANOTHER HALLHflV. TO M EAST IS A RESTROOH 

32958DflTA15,13,e,e,8,8 

33888 DSI(13)="THIS IS HHAT IS COHMONLV CALLED ON EARTH, THE BAT 

HROOM. 

THERE'S GRAFFITI HRITTEN ALL OVER THE HALL 

PIPES LEAD UP THROUGH THE CEILIN& " 

33858DflTAi5,8,e,12,27,e 

33188 DS*<14)="THIS APPEARS TO BE AN INTERROGATION ROOM. ":DflTA8, 

8,8,18,8,8 

33158 DS$(15)="rn IN A LOUNGE. ":DATRe,e,13,12,8,8 

33288 DS$(16)="TH1S IS A COHPUTER ROOM. THERE'S A TRS-80 IN ICRE 

ON THE SCREEN IT SflVS: » CSAVE TAPE «":DATfll7,e,18,0,8,8 

33258 DS*(17)="rH IN A TESTING LABORTORV. ":DRTfle,0,16,8,0,8 

33388 DS$(18)="rM IN A HALLHAV. 

fl LARGE ARROW POINTS EAST AM) SAVS: » TO THE VAULT «" 

33358DflTftl6,25,3,19,8,8 



B48e DS$<19)="THIS IS THE ENTRflNCE TO THE DEVELOPMENT LflB SECTI 
ON":DflTfl20>l&2L28,22,8 

33458 DS$<2e)="rH IN fl LONG CORRIDOR. TI£RE ARE LflBORTORIES ALL 
AROUND HE ' : DflTR19, 23. 21, 2S, 22, 24 
33568 DS$<21)="I'M IN fl RESEflRCH LflB. ":DflTfi28,0,8,e,e,8 
33550 DS$<22)="rM LOST!" :DflTfl22,22,22,22,22,20 
33688 DS$(23)=DS$(21) : DflTfl8, 8, 8, 28, 8> 
33658 DS$<24)=DS$(21) : DATfl8, 8, 8, 8, 28, 8 
33780 DS*<25)="rH NEflR TIC ENTRflNCE TO THE VflULT. 
fl SIGH fCRE SflVS: » AUTHORIZED PERSOta ONLV «" 
33758DflTfl0,26,e,18,8,8 

33888 DS$(26)="I'H IN M. VflULT. ' :DATfl8, 0, 8, 25, 8> 8 
33850 DS$(27):'"I'H IN fl PIPE TUNNEL HHICH LEADS IN EVERY DIRECTI 
0K\DflTft28,27,27,27,27,13 
33900 DS$(28)=DS$(27):DflTft29, 29, 29, 29, 38, 29 
33958 DS$<29)="rH LOST IN fl HflZE OF PIPES. ":DflTfl28,29,29,29,29, 
27 

34080 DSI(38)»''rH IN THE PIPE HHZE 
BELOH K I THItK I CAN SEE THE JAIL ■ 
34858 DRTR29, 29, 28, 29, 29, 31 
34180 DS«(31)='rH IN THE JAIL " 
341SeDATfl32,33,34,35,0,0 

34200 DS$(32>='Fn IN A JAIL CELL ■:DATne,8,31,8,8,0 
34250 DS>(33>'4)S$(32) :DATfl0, 0, 0, 31, 0, 
34300 DS»<34)=DS$(32) : DflTR3L 0, 0, 0, 0, 8 
34350 DSf(35)="rH flT THE SECURITY DESK. 
TO THE NGRTH AN ELEVATOR ':DflTA36,31,0,8,8,0 
34408 DS$<36)="rH IN THE ELEVATOR VDATAO, 8, 35, 8, 37, 8 
34458 DS»(37>=DS$(36) :DATflO, 0, 14, 8, 8, 36 
34858 LO°23:DIH0B$(LO) 

34988 0B$(1)="A TAG HHICH SAVS: » NEEDS TURBO «":DATA11,5,0 
34950 0B*(2)="flNTH1flTTER FUEL":DATA12,5,5 
35000 0W(3)="BLflSTER":DflTfll3, 7,0 
35050 0B((4)=''C0mUNICflT0R' .DflTftl4, 9, 
35100 0B$(5)="fl VERV SURPRISED GUflRD" :DflTfll5, 9, O 
35150 0B*(6)='HflP OF TtE SHIP":DflTfll6,29,20 
35200 0B$(7)="St)ME KEYS*:DflTftl7,9,0 
3S250OB«8)='fl SHIICSTQNE NECKLACE" -DATftie, 10, 20 
353»(1B«9>="PRIHGESS LEVA'S CflPE".DftTA2L 14,5 



35358 OB*<10)="t1C[)ONflLD'S HflHBURGER" :DflTfl22, 15, 2 

35408 OB*<ll)=»fl CflSSETTE TAPE" : DftTR23, ?, 8 

35458 0B$<12)="ft Tl)RB0ENCflBULftT0R":DflTfi24,17,5 

35588 0BI<13)="flN EVIL LOOKING SCIENTIST" :DflTfl25, 17, 8 

35558 0B$<14)="SECRET ftHflCK PLflNS" : DflTfi26, 8, 28 

35608 0BI(15)="DEflTH RftV SCHEHRTIC" :DflTfl2?, 9, 28 

35658 0B$(16)=«a0flKIN6 DEVICE" :DflTR28, 17, 28 

35700 0B*<17)="HICR0 LfiSER GUN" : DflTfl29, 24, 28 

35758 0B$(18)="I. D. CflRD" :DftTfl31, 17, 8 

35888 0B*<19)="MflLIDIUH CRYSTflLS (Ti€ TREflSURV!)":DflTR32,26,38 

35858 Oe$(20)="R SIGN HHICH SfiVS: » OUT OF ORDER «":DflTfl33,3,0 

35988 Oe$<21)="RTTflCK ROBOT" : DflTfl34, 35, 8 

35950 0B$(22>="PRINCESS LEVA" :DflTfl35, 34, 58 

36800 0e*(23)="fll1l1UNITI0N" :DflTfl37, 7, 8 

36158 DIMDS<a, 5): RESTORE 

36200 FORZL=iTOa:FOR2D=0TO5 

36250 REflDDS(2L, ZD) : NEXTZD : NEXT2L 

36300 DIH0B(L0,2) 

36358 F0RZL=1T0L0 : REftD0B(2L, 8), OB<ZL, 1), Oe(ZL, 2) : NEXTZL 

36580 Dir»£l(a) 

36550 HEI(1)="I THINK HE'RE SUPPOSE TO LEAVE THE STUFF HERE. " 

36608 HEI<2)="I HONDER IF HE HAVE ENOUGH FUEL?" 

36658 HE$(7)="H0H 'BOUT A BLASTER. " 

36788 HE$(9)="TRV SHOOT GUARD. " 

36758 HE*(13)="IT MIGHT BE INTERSTING TO READ THE GRAFFITI. " 

36880 HE$<17)="TRV SHOOT SCIENTIST. " 

36850 HE*(22)="rH AS CONFUSED AS VOU ARE. ":HE$(29)=HE$(22) 

36900 HE*(31)="IT HIGHT HELP IF HE HAD SOME KEVS TO OPEN ANV LOC 

KED DOORS. " 

36950 HE$<35)="DID VOU BRING ANVTHING TO EAT?" 

37180 H8I="I CAN'T GO THERE. THE DOOR IS LOCKED. " 

37158 Hl*="rM NOT CARRYING ANV BLANK TAPE. " 

37200 «2*="TtC TRS-80 RECORDED SOMETHING ON THE TAPE, AW) TI€N I 

T PRINTED: 

» ATTACK PLANS - VERV SECRET «" 

37250 113$=" I CAN'T. I'H NOT CARRVING ANV KEVS. " 

37308 H4*="0. K. THE DOOR TO THE JAIL CaL IS UNLOCKED. " 

37358 H5*="THERE'S NO ROBOT HERE. " 

37400 H6$="BUT I DON'T HAVE ANY HAMBERGERS. " 



37458 n7l="CHUHP. . . CHUHP BURP! 

THE PRINCESS THflNKS VOU FOR fl DELICIOUS HEfiL. " 

37500 H8$=' DOESN'T EflT HflHBURGER. " 

27550 H9*="N0THIN6 HflPPENED. THE HflHBURGER IS COLD VOU KNOH. " 

27600 N0$="THE fiTTflCK ROBOT EATS THE HflHBERGER RND DISSflPEflRS. 

37650 N1*="I'H AT THE IDENTIFICATION TERMINAL 

ON THE SCREEN IT SAVS: » SHOH I.D. «" 

37700 N2$="THE TRACTOR BEAM IS OFF. » 

37750 H2$="THE TRACTOR BEAM IS ON. " 

37800 N4$="V0U FORGOT TO OPEN THE FLIGHT DECK DOORS. " 

37850 RETURN 




TRS232 

Small Systems Software 
Our first piece of hardware will interface 
your TRS-80 to a whole group of serial 
printers through your cassette recorder 
jacl(. $49.95 

WARFARE I 

Menu-driven anthology includes Dive 
Bomber, Pillbox, Sink 'Urn and Tank. 
Level II, 16K $7.95 



UJhotV neui 
Qt TjC 

TRANSATLANTIC BALLOON VOYAGE 

Dean Powell 

Ballast, gas volume, icing and wind 

control ... this blend of fate and science 

will land you in Paris if you're good and 

lucky! 

Level II, 16K $9.95 

NINE GAMES FOR PRESCHOOLERS 

George Blank 

Nine games in one program, designed to 
captivate children ages three to seven. 
Level II, 16K $9.95 

DRILL MASTERS 

Computer Graphics 

Student rescue programs designed to 

drill future linguists in secondary level 

German, Italian, Spanish, Russian, even 

Chinese and Music Theory! 

Level II, 16K $7.95 EACH (specify) 



T[CTRI-80 lef luiofc CKchofiQe 
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^^; -^ ' ^ ^ " by Scott Adams 

While on Safari last month, you disappeared and haven't been 
heard from since. Actually, you stopped in a native village and got 
to talking with the medicine man. He offered you a bowl of native 
beer and then dug 14 little holes in the ground, dropping 3 tiny 
pebbles into each of twelve of them. 

Your knowledge of Swahili, the common tongue, was limited at 
first, but the game was easy to learn, and over the past 30 days 
you've learned much of the language. The medicine man's 26 
hard working wives are good cooks and they brew plenty of beer. 
He has even given you 3 of his daughters to keep you warm at 
night . . . they work hard to meet your needs. 

Still, the game goes on; you take a sip of beer, lean back against a 
tree and muse, "And I thought I'd have to wait until 65 to retire." 



1 ^♦♦♦»Mc»3|e »»»»»»»»j|j | n i f»»»»i^^ 

* SOFTSIDE PRESENTS ♦ 

* R H R R I ♦ 

* BVSCOnRDRHS ♦ 

2 DEFIMT fr-LG-Z 

3 'MODIFIED RHRRI BV SCOH RDflNS. i-205-962r69i7 
4DEFDBLF:rW 



5 DflTfll8957S4< 11^4447/1115657, 15£2299i 1167487, 1184462; ie7B6& 18 
9^51,115665,864412,888122,1898974 

6 DflTftl889143, 1895736 

8 OflTft-liREflD F:IF FO-1 TICN N=M+1 rGOTO 8ELSECLS:INPUT"D0 VOU 

NEED RULES TO HODIFIED fWflRI«;fl*:IFLEFT$<fl$,l)=*VTlCNG05UB28ee8 

18 DIH B<13),6(13),F(158) : V=N 'SflVE CURRENT LENGTH 

15 RESTORE:FOR I=8T0N-l:REflDF<I):NEXT 

28CLS : PRINT CHR$<23) :E=8 

25 FORI=8T012:B(I>=3:NEXT 

38 C=8 : F(N)=8 : B<13)=8 : B(6)=8 

35 G0SUB5e8 : V=7 'IF THIS IS LflST HOVE iC'LL REHOVE MEN FROM OT 

HER SIDE 

48 PRINT* VOUR HOVE? (HOLE 1 TO 6)"; : GOSUBilS 

45 IF E=8 THEN 88 

58 IF H^ GOSUBieB : IF E=8 THEN 88 ELSE 58 

68 V=8 : Z=18 :PRINT : PRINT"MV HOVE IS "; : G0SUB888 

65 IF E=e THEN GOSUB 588 : GOTO 88 

67 Z=Z+2 

78 IF H4I FOR I=lT0288e : NEXT : GOSUB 588 : PRIHT§<64*7+2*2), 

»,"; : GOSUB 888 : G0T065 

71 FOR I=lT028e8:NEXT 

75 IFE>eTHEN35 

88 PRINT : PRINT"6flME OVER" 

82 K=e: I=V 'REMOVE MEN FROM HHOEVER DIDN'T HflVE THE LAST TURN 

84F0R J=IT0I+5:K=K+B<J):NEXT:B<I+6)=e<I+6)-K : M1=M1+B<6) : M2= 

h2+B(13) 'REMOVE MEN FROM LOSERS SIDE 

85 D=B<6)-B<13) : IF D<8 PRINT" I HIN BV"; -D; "POINTS" : L0=L0+1 

: Q0T097 

98 IF D=8 PRINT"DRfl« GflME" : TI=TI+i : G0T097 

95 PRINT'YOU WIN BV'iD; "POINTS" :HI=WI+1 

96 N=N+1 'SflVE THIS GflME ME LOST! 

97PRINT"HINS="/HI;" LOSES="iLO;" TIES=";TI : PRINT"! HflVE"; M2 
;"MEN SO FAR": PRINT" VOU HflVE"; MIj "MEN SO FflR":IF M2<M1 THEN PRIN 
T"VOU ARE HINNING" ELSE IF M2<>Mi PRINT"! AM WINNING" 
98 INPUT'flNOTHER ROUND"; A* :A$=LEFT$(fl$,l):lFA$="N"THEN 988 ELSE 
28 

188 PRINT"flGflIN? (HOLE 1 TO 6)"; 

118 M$=INKEV$:IF M*=""THENii8ELSE M=VflL(Hf):PRINTM; : IF M<7 flND 
H>e THEN H=41-l : G0T0l3e 
128 PRINT'ILLEGAL MOVE" : G0T0188 



138 IF B<H)=e 6070120 

140 H=6 : GOSUB208 

150 GOTO 500 

200 K=n : GOSUB 600 

205 E=s0 : IF I06 THEN K=K-7 

210 C=C+1 : IF C<5 THEN F(N)=F(N)*6+K 

215 FOR 1=0 TO 5 : IF B<I)O0 THEN 230 

220 NEXT 

225 RETURN 

230 FOR I=7T012 : IF B<I)O0 THEN E=l :RETURN 

235 NEXT I : RETURN 

500 PRINTeO," ";j : FOR I=6T01STEP-I : PRINT USING " ##M; :NE 

XT : PRINT : PRINT" "; 

505 FOR 1=12 TO 7 STEP -1 : GOSUB 580 

510 NEXT I 

515 PRINT ; 1=13 : GOSUB 580 

520 PRINTTflB<27) B(6) : PRINT" "i 

525 FOR 1=0 TO 5 : GOSUB 580 

530 NEXT I 

535 PRINT : PRINT" "; : FOR MT06 : PRINT USING" Wih : NE 

XT : PRINT : PRINT : RETURN 

580 IF B(I)<10 PRINT" »; 

585 PRINT B(I)i : RETURN 

600 P=B<H) : B(H)=0 

605 H=M+1 : IF M>13 THEN I1=«-14 

610 IF P=l OR (H06 AND H013) THEN B(H)=B(M>+1 ELSE P=P+1 

611 P=P-1 : IFP>=1 THEN 605 

615 IF B<H)=1 THEN IF H06 AND M013 THEN IF B<12-H)0@ THEN 625 

620 RETURN 

S25 B<H)=B(H)+B<12-M)+1 : B<«)=8 : B(12-I1)=8 : RETURN 

808 D=-99 : H=13 

802 IF B<12)=1 THEN fl=12 : GOTO890 

803 IF B<11)=2 AND B(12)=0 THEN (Ml : 6OTO890 
805 FOR I=0TO13 : G(I)=B<I) ; NEXT 

810 FOR J=7 TO 12 : IF B<J>=8 THEN 885 

815 0=0 : «=J : GOSUB 680 

820 FOR I=0TO5 : IF P<I)=0 THEN 845 

825 L=I : R=0 : X=B(I> 

826 FOR X=B(D TO 1 STEP -1 :L=L+1 : IF XOl fiND ( L=13 OR L=6 ) 
THENL=L+1 



26 



827 NEXT X 

830 IF DO THEN L=L-14 : R=i : 6OTO830 
835 IF B<L)=0 AND L06 AND L013 THEN R=B(12-L>+R 
840 IF R>Q THEN Q=R 
845 NEXT I 

850 Q=B(13)-B(6)-Q : IF C>8 THEN 875 
855 K=J : IF 106 THEN K=K-7 

868 FOR I=0TON-1 : IF F<N)*6+K=INT(F<1V6[<7-C)+.1) THEN 0=0-2 : 
GOTO 875 
870 NEXT I 

875 FOR 1=0 TO 13 : B<I)=G(I) : NEXT 
880 IF e>=D THEN ft=J : D=Q 
885 NEXT J 
890 H=fl : PRINT CHR$<42+H); : GOTO200 

900 INPUT'HIT ENTER TO CONTINUE"; J»:CLS: IF V<=N-1 PRINT"TO HflKE 
HE fl BETTER PLflVER, SfiVE THE GflHE AFTER FIRST 

ADDING THE FOLLOWING TO LINE 6 DATA STATEMENT: ".FOR I=V TO N-1 : 
PRINT", "i F( I )i: NEXT I 

901 PRINT 

905 IFHKH2 THEN PRINT "I HON!!!" aSE PRIHT"VOU HON! ! ! " 

1000 INPUT-HIT ENTER TO GO BACK TO MENU"i A$:RUN"MENU" 

20000 aS:PRINT"AHARI IS PLAVED UITH 36 BEANS AND 12 HOLES IN TH 

E GROUND. 

THE HOLES ARE LAID OUT LIKE AN EGG CARTOK 6 ON EACH SIDE " 

20010 PRINT"AT BOTH ENDS IS A SPECIAL HOLES CALLED HONE EACH 

PLAVER'S HOHE IS OH HIS RIGHT. THE PLAVERS SIT FACING EACH OTHER 

ACROSS THE HOLE. " 

20020 PR1NT"THE OBJECT OF THE GAME IS TO GET THE HIGHEST NUMBER 

OF BEANS 

IN A SERIES OF GAMES. DURING A MOVE A MAN PICKS UP ALL THE BEANS 

IN ONE POT AND THEN DROPS THEM ONE AT A TIME IN EACH POT GOING 

COUNTER-CLOCKHISE. " 

20030 PRINT"THE HOME PITS ARE SKIPPED UNLESS IT IS THE LAST BEAN 

IN VOUR 
HAND IN WHICH CASE IT IS DROPPED IN THE HOME PIT. THE OTHER WAV 
TO SCORE IS TO DROP THE LAST BEAN IN AN EMPTV PIT. VOU THEN GET 
THAT BEAN AND ALL BEANS IN THE OPPOSITE PIT. « 
20833 PRINT: 1NPUT"HIT ENTER TO CONTINUE"; A$:aS 



28834 PRINT'IF VOUR LR5T BERN ErDS UP IN THE HOME PIT VOU GET TO 
GOflGfllR 

« 

28835 PRINT"HHEN R PLRVER REHOVES ALL BEfWS FROH HIS SIDE OF THE 
BORRD 

HE HINS THRT ROUND. THE OPPONENT GETS THE NUMBER OF BEflNS IN flNV 
OF HIS HOLES SUBTRflCTED FROH HIS TOTAL, fl TflLLV IS KEPT OF THE 
TOTAL NUMBER OF BEANS IN EACH HAN'S HOLE AT"; 
28036 PRINT"THE END OF A ROUND. 

THE WINNER IS THE ONE UITH THE MOST BEANS AFTER MANV GAMES' 
20840 PRINT: INPUT"HIT ENTER TO CONTINUE"jA*:RETURN 




► Please help us keep our mailing list ^ 
.up-to-date so we can be sure you get your 

SoftSide on time every month. If you're 
^moving or your address is incorrect on the ^ 
>mailing label, send us the label and a< 
^note with the changes you want made. Be 

sure to send both your old and new 
^address and include your ZiP codes. 

SoftSide Subscriptions 
PO Box 68 Milfford, NH 03055 



TRS-80 compatible business 

systems, service, software 

land support. For information 

■call BUS-80 HOT LINE 

Wednesday 7pm to 9pm ^ 

603-673-5284 



ALL THE BUGS WE SAW FIT TO PRINT! 

nDnnnnnnnnnnnnnnnDDnnnnnnnnn 

Sharp-eyed Chuck Moffitt of Spokane, Washington pointed out to 
US that in line 2170 of Santa Paravia En Flumaccio, the computer 
was feeding the cathedral instead of the clergy. To relieve the 
ministry of this distress, change variable C(E) to Q(E) so that the 
line now reads as follows: 

2170 D! = N(E)*100 + Q(E)*40+M(E)*30+P(E)*10 + S(E)*5 






In Awari, Scott Adams uses DATA statements to establish strategy, 
with the option of adding additional winning strategies. In order to make it 
easy to modify the game, he has the computer determine how many DATA 
statements there are before DIMensioning the DATA array by doing a 
dummy READ. This is done by the first part of line 8, as follows: 

8DATA-1: READF: IFF -1 THEN N = N + 1: GOTO 8 



This counts the DATA items and stores the count in the variable N. 
Then he uses line 15 to read the data, after leaving lots of room in his DIM 
statement in line 10 for more DATA: 



10DIMF(150) 

15 RESTORE: FORI=0TON-1 : READF(I): NEXT 



The RESTORE statement causes the computer to go back and start 
with the first item of DATA. Then the items are READ again, and stored in 
the array. 

Now, if anyone wishes to add DATA, all they have to do is add a 
comma as a data separator after the last regular item of DATA, and the 
data itself. The computer will automatically recognize the new count and 
store the appropriate number of items in the array. 

Using the DATA statement for the last item as the first instruction in 
line 8 was a clever touch, preventing most people from accidentally adding 
their DATA after it. Our appreciation to Scott for showing us how to make 
programs easy for the user to modify! 

By numbering the last DATA line 6 and the test 8, Scott limits the 
number of DATA items that can be added without Renumbering, 
effectively preventing people from exceeding the array size in his DIM 
statement. This is a nice touch to avoid a program crash. 




SoftSide is proud to present a 
demonstration of how "bugs'' 
survive inside your TRS-80. As we 
all know, life is only possible if you 
have something to eat. We 
guessed that the bugs in our 
computers ate the contents of 
memory, but had no real know- 
ledge until David Bohike actually 
managed to interview a bug. 




He learned that eating is a major 
form of pleasure for bugs — so 
much so that they've turned dining 
into a game of strategy. The game 
played by the bugs was described 
in detail enough that we're able to 
present a simulation with the same 
strategy. Now, the next time a 
program bug eats up your compu- 
ter memory, you'll know how the 
process works! 



The bugs base their game on 
simple rules that tell how much 



memory they can gobble in one 
bite and how delicious that mem- 
ory is. They love the taste of 
plusses ( + + +), but hate aster- 
isks (***). Spaces are tasteless, 
and do not count. All other 
memory contents are nourishing 
and satisfying, but have only one 
taste point per space occupied. 



To play the game, you select a row 
and get to eat the letter directly to 
the right of the row number. In 
several cases, you also get to eat 
adjacent characters. If you select 
the letter B, you get to eat the 
memory cell directly below the one 
you select. These options are 
displayed graphically for you at the 
bottom of the screen when it's your 
turn. The letter A gives you only 
the cell that it is in, while B-F give 
you additional cells, and additional 
points if there are characters in 
those cells. 

To win, you must not only select 
the option which gives you the best 
score, but also avoid giving your 
opponent a good opportunity. That 
may be tougher than it looks! 



5 DIM fl(ie>ll) 

10 CLS:PRINTTflB<18), "LETTER CRUNCH": PRINT: PRINT 

12 PRINT"=ENTER= VOUR OPTION (1-3)": PRINT 

14 PRINT"1 PLflVER VS PLfiVER" 

16 PRINT"2 PLftVER VS COMPUTER" 

18 PRINT'S DIRECTIONS" 

20 PRINT§220,"";: INPUT OP 

21 IFOP=3GOTO1000 

22 CLS:PRINTCHR*(23) 

25 INPUT"NflME OF PLflVER i 1";P$(1) 

30 IFOP=2THENP$(2)="TRS-80":(jOTO80 

35 PRINT :INPUT"Nfl«E OF PLflVER » 2"iP$<2) 

80 FORR=0TO10 : FORC=0TO11 : ft(R> C)=32 : NEXT : NEXT 

90 CLS:QOSUB900:GOSUB950 

95 PN=RND(2) 

100 FOR TURN = 2 TO 21 

110 PRINT0960, "TURN "i INT(TURN/2); " "i 

112 PRINT"SCORE : "i Hiih Sli " «; P*(2)i S2; 

115 IF PN=2 AND 0P=2 GOSUB500:GOTO150 

120PRINT0896,P$<PN)i 

130 PRINT" : =ENTER= ROM i VOU HISH TO CRUNCH (1-9 

) "i 

140 INPUT R 

145 IFRaORR>9ORROINT(R>PRINT064O, CHR$(31> : 6OSUB950 : G 

OTOt30 

150PRIKT0640.CHR$(31); 

155 6OSUB700 

156PRIKT0640,CHR$(31) 

168 60SUB958 

164 IFPN=1 THEN S1=S1+S ELSE S2=S2+S 

165 IFS=0PRINT8640> CHR*(31) :G0SUB95e:Q0T0118 

170 IF PN=1 THEN PN=2 ELSE PN=1 
190 NEXT TURN: PRINT8648.CHR$(31) 
192 PRIMT8768, "F I N R L S C R E" 

194 PRINTP$(l)i" "iSli" •;P$(2);" "iS2i 

198 PRIMT0968i "PRESS =ENTER= FOR ANOTHER QflHE "; 

199 I«>UTftt:RUN 
499 G0T0499 

580 FRIMT0648,CHR$(31>:PRINT8725/"TRS-80'S BRflIN"; 
505 FORR=1TO9:P<R)=0:NEXT 



528 FOR R=l TO 9: FOR C=l TO 16 

525 PRINT§704+INT(R/2)*64+C*5. 5+RND<5), a«$<RND<62>+12 

8); 

538 IFfl<R,C)=32a3TO590 

535 IFR(R,C>=43THEN P<R)=5:G0T0595 

548 IFfl<R,C)=42THEN P<R)=-5:G0T0595 

542 P(R)=1: 

545 m fl<R, C)-64 GOTO KB, 535, 568, 565, 578, 575 

558 Q0T0595 

555 R=R+1:B=C:G0SUB698:G0T0595 

568 fl=R-l:B=C:G0Sl«698:60T05^ 

565 fl=R+l : B=C : G0SUB698 : B=C+i : G0SUB69e : fl=R : G0SUB698 : GOT 

0595 

578 fi=R:B=C+i:G0SUB698:fl=R-l:G0SUB698:B=C:K)SUB6M:G0T 

0595 

575 fl=R-l:B=C: 0051^98 :fl=R+l:G0SUB69e:G0T0595 

598 NEXT C 

595 NEXT R 

688 I1=RN[)(2):R=1:F0RI=2T09 

682 IFI1=2G0T0685 

683 IFP(1)>P<I>G0T0618 

684 60T0689 

685 IFP(l)>=P(I)G0T06ie 

689 R=I:P<1)=P<I) 
618 HEXTI 

628 IFP<R>=8TffiNP(R)=-38:60T06Mi 

638 RETURN 

698 IFfl<fi,B)=43THENP<R)=P(R>+5: RETURN 

691 IFfl<fl,B)=42Tte*><R)=P(R)-5:RETlMi 

692 IFfl(fl,B)=32Tl€N RETURN 

693 P<R)=P(R)+1: RETURN 

700 p=R*64+9:PRINT8P,CHR$<94); :P1=P:S=8 

728 PRINTe784,a«$(31) 

738 PRINTiPi," "; :Pl=Pl+3:IFPl=P+18G0T074e 

735 PRINT8Pi,CHR*<94); :G0T0738 

748 P=P+i8 : C=i : PRINTSP, CWW<94)i 

758 IFfl<R,C>=32THENC=C+i:PRINT(»P," "; :P=P+3:PRINTeP,CH 

R$<94); : IFCaiTHEN758ELSEPRINT§P, " "i :RETURN 



768 IFfl<R, C)=43THENfl(R, C)=22 : S=5 : PRINTeP+2, CHR*(i49)i " 

+"i ChR$<l?0);:PRINT9832. "EARNS 5 POINTS";: 
FORI=lTO2e00: NEXTrPRINTiP, " "i : RETURN 
770 IFfl<R, C>=42THEm<R, C)=22 : S=-5 : PRINT8P+2, CH»(149); 
"«''i CHR$<170)i :PRINT(»832/'F0RFEITS 5 POINTS 
"i :FORI=1TO2000: NEXT:PRINT§P, " "; .RETURN 
775 PRINTe822, "POINTS FOR CRUNCH : "i 

777 PRINT§P+2,a«*(149);CHR*<R<R,C));CHR$<17e); :S=S+1 
780 I=fl<R,C)-64:0N I GOTO 818, 8^, 830> 846, 850> ^0 

816 GOSUB880 : PRIHT8P, " "i : fl(R, C)=32 : RETURN 

820 ft<R,C)=32:R=R+i:PP=P+66:QOSUB890:ft(R,C)=22 

822 QOSUB880:PRINT8P, " "; :PRINTeP+66, " "i :RETUR 

N 

838 R(R,C)=32:R=R-1:PP=P-62:GOSUB890:R<R,C>=32 

822 GOSUB880:PRINT§P, " ': :PRINTeP-62, " "i :RETURN 

840 fl<R, C)=32 : PP=P+5 : C=C+i : G0SUB898 : fl(R, C)=22 

842 R=R+i:C=C-l:PP=P+66:Q0SUB898:fl<R,C)=22 

844 PP=P+69:C=C+i:6OSUB890:fl<R,C)=32 

846 GOSUB880:PRINT§P, " »; :PRINTeP+66, " "i : 

RETURN 



60SUB898:fl(R,C)=32 

fl<R,C>=22 

fl(R,C>=32 



856 fl<R, C>=32 : PP=P+5 : C=C+1 : 

851 R=R-1:PP=P-59:6OSUB890: 

852 C=C-1:PP=P-62:GOSUB890: 
855 GOSUB880 : PRINTSP, " "; : PRINTeP-62, " 
RETURN 

860 fl(R,C)=32:PP=P+66:R=R+l:GOSUB890:fi<R,C)=32 

862 PP=P-62 : R=R-2 : GOSUB890 : fi(R, C)=32 

864 GOSUB880:PRINT§P, " "; :PRINT0P-62, " "; 
866 PRINT0P+66, " "i : RETURN 

880 PRINT0852, Si : FORI=1TO2000 : NEXT : RETURN 

890 PRINTiPP, CHR*<149)i CHR*<fl<R, O); CHR$<170)i 

895 S=S+1 : IFR(R, C)=42THENS=S-6 

896 IFfl(R,C)=43THENS=S+4 

897 IFfl<R,C)=32THENS=S-l 

898 RETURN 

899 G0T0899 

900 PRINT09, "LETTER CRUNCH"; 

902 F0RI=1T09:PRINT§I*64, "ROM "; I; CHR*(94); :NEXT 
905 FOR 1=1 TO 80 



918 R=RN[><9): C=RND(10): IF ft<R,C)032 6OTO910 

928 X=RND<8)+64:IFX=71THEN fl(R,C)=42:60T0934 

925 IFX=72 THEN Z=Z+l:IFZ>5THEN910ELSEfl(R,C)=42:6OTO935 

938fl<R,C)=X 

934 IFCCflND ft<R,C>=43 THENfl<R,C)=32:G0T0918 

935 PRINT§R*64+C*3+27, CHR$<fl<R> C) h 
948 NEXT: RETURN 

950 PRINT8784, CHR$<94); CHRK149)i "fl"; CHR$<170)j " 

n. 

962 PRINTCHR$<94)i CHR*<149)i "B"; CHR$<170); " ': 

964 PRINT" •;CHR*<149)i" "iCHR$<178);" "; 

966 PRINTCHR*(94)i CHW<149); "D"; CHR$<178); CHR*<i49); " 

"iCHR$<178)j" '} 

968 PRINT" •;CHR*<149)i" "; CHR$a78)i CHR$<149); " "iCHR 

$(178); • •; 

970 PRINT" -;CHR$<149)i" ";CHR$<178); 

972 PRINT0779, CHR$<149)i " *i CHR*<i7e>i " "; 

974 PRINTCHR*<94)iCH»<149)i"C"iCHR$<178);" "i 

976 PRINT" ";CHR*(149);" "; CHR»<17e)i CHR$<149)i " "iCHR 

$<178)i" •; 

978 PRINTCHR$<94);CHR$<149>i "E"iCHR$<178)iCHR$(149>i " 

"iCHR$<i70)i" "; 

980 PRINTCHR$<94)i CH»(149)i "F"; CHR*(170)i 

982PRINTe889,CHR*(149);" ";CHR$(178)i 

999RETURN 

1888 aS:FORR»0TO10:FORC^TOll:R(R.C>=32:NEXT:NEXT 

1818Q0SUB988 

1028 PRINT8704, "fWWE IS THE -LEHER CRUNCH- GRID. 

TO PLflV, JUST ENTER THE" 

1022 PRINT"ROH NUMBER VOU UISH TO CRUNCH THE CRUNCH 

UILL BE DIRECTLY" 

1824 PRINT"TO THE RIGHT. NOTICE THE SVHBOLS : ft-F,*,+ 

, AND ft FEH SPflCES. " 

1025 PRINT 

1026 INPUT-PRESS =EHTER= TO CONTINUE"if»:CLS 
1030 GOSUB950:PRINT00. "«; 

1032 PRINT" BELOURRE THE CRUNCH INDICflTORS. FOR 
EXflMPLB IF VOU" 

1034 PRINT"ENTER ROM t 2 RND THE FIRST LEHER DIRECT 
LV TO THE RIGKT IS" 



1036 PRINT"fi -F- ; THEN imT LETTER, TFC (»E DIRECTLV 
ABOVE, RND THE ONE" 

1028 PRINT"DIRECTLV BELffli WILL BE CRIMUED. VOU MILL 
RECEIVE (M POINT" 

1040 PRINT "FOR EfCH LETTER CWIICHED. " 
1042 PRINT" ALSO, IF VOU CRUNCH fl + i VOU GET 5 E 

XTRfi POINTS. » 

1044 PRINT"flND, IF VOU CRUNCH fi * ; VOU LOSE 5 POIN 

TS. THE WINNER" 

1046 PRINT"IS THE ONE WITH Tl€ MOST POINTS AT THE END 

OF THE GAflE. " 

1048 PRINT"PLflCE AN AM RADIO NEARBV FOR INTERESTING V 

IBES '." 

1^0 INPUT"PRESS =ENTER= TO BEGIN" iA$: RUN 




% 



35%9z^ 



If y#4i've ever had to endure comments that a 
cofttptrter in the house is nothing more than a 
fancy toy^ use this program to introduce your 
TRS-80 to a friend. Of course, you'll want to 
subtly set the time delay at the minimum, to 
make sure that your friend doesn't find it too 
easy, but this is an effective and attractively 
presented educational program that meets a 
basic need. 



f9 



^s^4'r 



by D.L.Brown 

In flash card drilling, the computer has a major advantage over a parent. 
It's very patient, and doesn't show exasperation when a child misses the 
same problem for the fifth time. However, human interaction in learning is 
a definite advantage; an effective way to use this program would be for two 
persons to use it competitively, using the time delay feature as a handicap, 
in a friendly and low pressure contest. 

To lower the difficulty span for younger children, line 200 sets the limits 
for multiplication to 12 times 12, line 8050 sets the limits for addition at 99 
plus 99, line 9040 sets the subtraction to cover the same range as addition, 
and line 9600 sets the division to the same range as multiplication. There 
will be no problem with limiting the random numbers to smaller numbers, 
but the graphic routines will have to be modified for larg^^r ones. 

Another routine to examine is at lines 5000 to 5090, which draws the 
numbers to 9, in order, at 5000,5010, 5020, and so on. 



1 REM 








MATH FLASH CARD DRILL 






BV D. L. BROWN 


DERRV, N.H. 






24I4ARCH79 








*itmm**m*******m^ 


tiii:***m***m*********** 


******* 


********* 


5 CLS:CLEAR200: RANDOM 








20 PRINT : PRINT :PRINT"H1! 


I'M HERE TO HELP VOU HITH YOUR MATH. ": 


PRINT: INPUT-HHAT'S VOUR NAfE";N$ 






21 N$=LEFT$(N*/8) 








22 CLS:PRINT:PRINT"THE FIRST THING VOU MLIST DO 


"imi% 


IS TELL M 


E HHAT KIND OF" 








24 PRINT:PRINT"mTH PROBLEMS. WE'RE mm TO DO. 


":G0SUB26:G0T032 | 


26 PRINT" 








1 


-ADDITION 






2 


- SUBTRACTION 






2 


- MULTIPLICATION 






4 


-DIVISION" 






28 PRINT ; PRINT :INPUT"ENTER THE (Mlbtk OF VOIIR CHOICE ' 


;CH 


30 IFCH<iORCH>4 aS:G0T022 







21 RETURN 

32 CLS:PRINT"OK ";N*i". THIS IS HON IT HORKS. I HILL GIVE VOU 

THE" 

24 PRINT'PROBLEHS LIKE FLfiSH CflRDS. VOU WILL HflVE fl SHORT TIHE 

TO" 

36 PRINT"GIVE HE THE ANSWER. ENTER VaiR ANSWER FROM LEFT TO RIG 

38PRINT"flND DO NOT PRESS THE "; CHR$(34); "ENTER"; CHR$<34); 
" BUTTON AFTER WE msm. " 

39 PRINT"I HILL KEEP GIVING VOU PROBLEMS UNTILL VOU GET 25 RIGHT 
AND":PRINT"THEN I HILL TELL VOU VOUR SCORE. VOU SHOULD DO ALL 

THE" :PRINT"PROBLEMS IN THE SERIES. " 

40 PRINT:PRINT"I HILL LET VOU PICK THE LENGTH OF TIHE THAT I'LL" 
42 PRINT"HAIT FOR THE ANSWER. TO ADJUST THE TIHE, OR CHANGE THE 

44 PRIHT"TVPE OF PROBLEM, JUST TVPE ";CHR$(34);"S"iCHR*(34)" IN 

PLACE OF THE ANSWER. " 

46 PRINT: INPUT"ENTER TIHE LIMIT IN SECONDS (BETWEEN 1 AND 28)"; T 

1 

48 IFTK1ORTD20 CLS:G0T046 

6eT=INT(TI/'.013):aS 

65 ONCHGOTO8e00,9e08,75,9508 

75 GOSUB80:GOTO130 

80 aS:PRINT§0. "TOTAL PROBLEMS" 

90 PRINT8256, "TOTAL CORRECT" 

100 F0RM=15385T015418 : POKEM, 121 : POKEM+768, 176 : NEXT 

110 F0RM=15285T016152STEP64 : POKEM, 191 : POKEM+23, 191 : NEXT 

120 FORM=15902TO15924 : POKEH, 140 : NEXTH 

125 RETURN 

130 P0KE15711, 169 : P0KE15713, 158 : P0KE15776, 191 : P0KE15839, 154 : POKE 

15841,169 

200 X=RND<12) : V=RND(12) : AN=X*V : P=P+1 : GOSUB210 : 6OTO300 

218 IFR<10 POKE15686,R+48:GOTO240 

215 IFR<20 RR=R-10:LR=R-RR:LR=LR-9:GOTO225 

228 RR=R-20:LR=R-RR:LR=LR-18 

225 P0KE15685, LR+48 : P0KE15686, RR+48 

240 IFPa8 P0KE15438,P+48:GOT0295 

250 IFP<20 RP=P-10:LP=P-RP:LP=LP-9:GOTO290 

^0 IFP<38 RP=P-28:LP=P-RP:LP=LP-i8:GOTO290 

270 IFP<40 RP=P-30:LP=P-RP:LP=LP-27:GOTO290 



288 IFP<^J RP=P-4e:LP=P-RP:LP=LP-36:QOTO290 
285 1FPO50 FCiR2=0TCi?5e:NEXT2: CIS. PRINTi:M$C23): PRINT" VOU SHOULD 
STUDV HCfi-E ";N*".":flV=INT<<R/?)*108);PRirrr:PRlNT"YOLI OHV GOT " 
;R;" (XIT":PRINT;PR1NT"0F "jp;* RIGHT. ": PRINT: PRINT: PRINT" T 

HRT'S "iftVi" PERCENT !":PRINT:INPLIT"[)0 VOU WANT TO STOP' NOH";RP$ 
28? IFflP$="VES"CLS:END 
288 GOTO1808 

230 POKE15429..LP+48:POKEi5430,RP+48 
295 RETURN 

200 GOSUB4500 : GOSL8ffl00 : 6OSUB280 : 6OTO208 
280 flNI="":BN$="":CN$="" 
390 IFRN<=99GOTO500 
400FOR2=1TOT 
410 ft$=INKEV$ 

420 IFR$O""»l$=fl$:60T0 425 
420 NEXTZ 

425 IFRMN'S-GOTOl^ 
440 lFVflL<flN*)>i GOTO 2818 
445 IFflM$=""6OTO2000 
500 IFflN<=9GOTO610 

510 IFfiN>99 FOR2=lTO100:GOTOf>20 

515 F0RZ=1T0T 

520ft$=INKEV$ 

530 IFfl$O""BN$=flH$+f»:KITO550 

540 NEXTZ 

550 IFBN*="S"6OTO1000 

600 IFBN$=""6OTO200e 

610 IFRN>9 FORZ=1TO100:6OTO620 

615F0RZ=1T0T 

630 IFft$O""CN$=BN*+fl$:aiT0645 

640 NEXTZ 

645 IFC«$="S"6OTO1800 

650 IFCN$=""GOTO2000 

660GOSUB7000 

690 IFVflL(CN$)=flH GOTO4000 

695 6OTO2000 

1000 aS:DI=0:P=e:R=8:INPUT"DO VOU HflNT TO CHflWiE THE TVPE OF PR 

QBLEH';W$ 




1820 IFDV*="VES"GOSUB26:QOTO1046 

1030 IFDV$O"NO"GOTO1000 

1040 aS:INPUT"DO VOU HftNT TO CHflNGE THE TlflE LIMIT"; DV$ 

1050 IF1>Y*=»VES"G0T046 

1060 IFDV*O"NO"GOTO1040 

1070(3OTO65 

2000 IFCN*=""PRINT§922, "VOU TOOK TOO LON G":F0RZ=1T0 

750 : NEXTZ : PRINTe922, STRIN6$<32, 32) : GOTO2020 

2010 PRINT§922, "SORRV »iN$; " THAT'S NOT CORRECT, "i :FORZ=1TO750:N 

EXTZ:PRINTi922, STRIN6$<3a 32); 

2020 PRINT§315,""; :PRINT"PRESS "CHR$(34)"ENTER"CHR*<34)" TO DISP 

flV CORRECT flNSHER"; :INPUTR$:PRINT8915,STRING*(4X32); :6OSUB4510: 

CN$=STR$<flN):IF(flN<100)*(flN>9) PP=1 

2025 GQSUB7000 

2030 PRINT§836, "STUDY THE CORRECT ANSWER "^N*;", THEN PRESS "CHR 

$(34)"ENTER"CHR*<34); : INPUTS* :PRINT§8%,SrRIN6$(G/32)i :RETURN 

3990 REM 

4008 R=R+1:PRINT§93L"R I G H T ! !" 

4010 IFR=25 FOR2=1TO1000:HEXT:CLS:PRINTCHR$(23):PRINT"VERV GOOD 

";N$i ". ":PR1NT:PRINT"V0U SOT 25 OUT OF ";P; " RIGHT. ":PRINT:PRINT 

:fiV=INT«Z)/P)*100): PRINT: PRINT" THAT'S "jAV;" PERCENT !":PRI 

NT:PRINT:IMnJT"iX]i VOU HANT TO ST9> r«»l";AP$:IFffi»$="SES"aS:END 

4015 IFR=25GOTO1000 

4020 FORZ=1TO750 : NEXT : PRINT(?93L STRIN6*(15, 32) : RETURN 

4490 REM 

4500 IFDI=0:FOR«=15463TO15476:POKEM, 32;P0KEM+64/32:P0KEM+128, 32: 

POKEM+192. 32 : POKEM+256, 32 : POKEM+320, 32 : POKEM+384, 32 : NEXT 

4505 IFDI=1GOTO4608 

4510 IFDI=0 : F0RM=15978T015991 : POKEM, 32 : POKEM+64, 32 : POKEM+128, 32 : 

NEXT 

4515 IFDMGOTO4610 

4590 RETURN 

4600 F0RM=15773T015782 : POKEM, 32 : POKEM+64, 32 : P0KEM+12& 32 : NEXTM 

4605 FORH=15786TO15804 : POKEM, 32 : POKEM+64. 32 : POKEM+128, 32 : NEXTM 

4618 F0RM=15532T015548:P0KEM, 32:P0KEM+64. 32:P0KEM+128, 32;NEXTM 

4690 RETURN 

5M0 P»m 150 : POKEM+L 131 : PWEM+Z 169 : POKEM+64, 149 : POKEM+66, 170 

: POKEM+128, 165 : POKEM+129, 176 : POKEM+130, 154 

5005 RETURN 

M10 Pa(EM+L 174 : POKEM+65, 178 : POKEM+129, 186 : POKEM+130, 144 



5015 RETURN 

5820 POKEH 134 : POKEM+L 131 : POKEM+Z 169 :P0KEM+64, 152 : POKEH+65. 148 

: POKEH+66, 134 : POKEM+128, 181 : POKEM+129, 176 : POKEI1+130, 176 

5825 RETURN 

5830 POKEft 134:P0KEH+L 131;P0KEM+2, 169.P0KEI1+65, 140:POKEI1+66. 174 

:P0KE«+128, 164:P0KEH+129, 176:P0KEI1+138, 154 

5835 RETURN 

5848 POKEH, 149 : POKEH+2, 178 : PtlKEH+64, 141 : POKEM+65, 148 : P0KE(1+66, 17 

4:POKE«+138,170 

5045 RETURN 

5858 POKEH, 151:P0KEH+l,131:P0KEH+2, 131:P0KEM+64, 131:P0KEI1+65. 131 

: POKEM+66. 169 : POKEM+128, 164 : POKEM+129, 176 : P0KEI1+138, 154 

5855 RETURN 

5860 POKErt 158:P0KEH+L 131 :P0KEH+2, 137:P0KE«+64, 157:P0KEM+65, 148 

:P0KEM+66, 164:P0i(E«+128, 165:P0KEH+129, 176:P0KEM+138/154 

5865 RETURN 

5878 POKEH, 135 : POKEM+l, 131 : POKEH+2, 155 : P0KEt1+65. 158 : POKEM+129, 14 

9 

5875 RETURN 

5888 POm 158 : POKEH+L 131 : POKEM+2, 169 : POKEH+64, 153 : POKEM+65. 148 

: POKEM+66, 166 : P0KEI1+128, 165 : POKEM+129, 176 : POKEH+130, 154 

5885 RETURN 

5898 POKETt 158 : POKEM+L 131 : P0KEI1+2. 169 : POKEH+64, 137 : P0KEI1+65, 148 

: POKEH+66, 174 : POKEH+128, 164 ; POKEH+129, 176 : POKEH+130, 154 

5895 RETURN 

6888REM 

6828 IFX>9 X(l)=l:X(2)=X-10:GOTO6e35 

6038 X(2)=X 

6835 11=15463 

6838 IFX<18G0T06845 

6048 0NX(1)G0SUB5818 

6845 l1=H+5 

6848 IFX(2>=8GOSUB5880:GOTO6068 

6858 0rK(2)G0SUB5818. 5828. 5838, 5848, 5858, 5868, 5878, 5888, 5898 

6868 IFV>9 V(1)=1:V(2)=V-18:G0T06888 

6878V<2)=V 

6888 IFDI=1 11=15773 :G0T06898 

6885H=15719 

6090 IFVa0GOTO6118 

6188 0NV<1)(j0SUB5818 



6110 H=H+5 

6120 IFV(2)=0GOSUB5008: RETURN 

61^ ONV(2>GOSUB5810. 5020. 5030, 5040, 5050, 5060, 5070, 5080, 5090 
6150 RETURN 
6190 REH 

7000 H=15970:IFCN$=""6OTO2000 
7010 IFDM H=155S2 
7020 IFVflL(CN$)<100 11=11+5 :6OTO7120 
7040 GOSUB 5010 
7100M=M+5 

7120 IFVflL(CN$K10GOTO7200 
7130 IFVflL(CN*)<100GOTO7155 

7140 IFVflL<CN$»99 CN=VflL<CN*):CH=CN-100:IFCN<10 CN*(2)="0":GOTO 
7170 

7150 IFVflL<CH*)>99IFCN>9 CH$(4)=STR$(CN):CN$(2>=LEFT$<CN$<4),2): 
GOTO7170 

7155 IFPP=1 CN*<2)=LEFT$(CN$,2):G0T0 7170 
7160 CN*(2)=LEFT$<CN*,1> 
7170 IFVflL<CN»<2))=0GOSUB5000:GOTO7190 
7180 ONVRL<CN$<2»GOSUB5010, 5020, 5030, 5040, 5050, 5060, 5070, 5080, 5 

090 

7190 PP=0 

7200H=l1+5 

7210 eN*<3)=RIGHT$<CN$,l) 

7220 IFVRL(CNI(3»=0(iOSUB5800:GOTO7S00 

7230 {)NVRL(CN$<3) >GOSUB5010, 5020, 5030, 5040, 5050, 5060, 5070, 5080,5 

090 

7500 RETURN 
8000 REM 

8018GOSUB80 

8020FC)RH=l45772TO15778:POI(EH>140:NEm:FORM==15711TO15839STEP64:P 

0KEH,191:NEXTM 

8050 X=RND<99) :V=RND<99);flN=X+V:P=P+l:GOSUB210:(jOSUB8100:6OTO805 

8 

8100 IFX>9 X(5)=X/10:X<1)=INT(X<5)).X<2)=INT«X<5)-X(1»*10+. 2): 

Q0T08135 

8130 X<2)=X 

8135M=15463 

8148 IFX<10GOTO8200 

8158 IFX(1)=0GOTO8200 
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8160 ONX<1)GOSUB5010, 5026. 5638. 5840. 5056. 5060, 5070, 5080, 5090 

8208 «=l1+5 

8210 IFX<2)=OGOSUB5O0O:GOTO8300 

8220 0NX(2)60SUB5818, 5828, 5838, 5848, 5858, 5868, 5878, 5888, 5858 

8380 IFV>9 V<5)=y/10:V<l)=INT<V(5)):V(2)=INT«V<5)-V<l))*10+.2): 

GOT08335 

8330 V<2)=V 

8335 11=15719 

8340 IFVa06OTO8400 

8350 IFV(1)=0 GOTO8400 

8360 ONV<1)GOSUB5010, 5028, 5838, 5840, 5050, 5068, 5878, 5088, 5898 

8480 11=11+5 

8410 ]FV<2)=0 GOSUB500O:GOTO85O0 

8420 ONV(2)GOSUB5010, 5020, 5030, 5840, 5050, 5060, 5070, 5080, 5090 

8500 GOSUB380:GQSUB450O:RETURN 

9000 REH 

9010 GOSUB80 

9020 FORH=15772TO15778:POKEM,140:NEXTM 

9040 X=RND(99) : V=RND<99) : IFX<V THEN V<7)=V : V=X : X=V(7) 

9845 IFX=V GOTO 9040 

9050 flN=X-V:P=P+l: 605110210 :GOSUB8108:(iOTO9040 

9500 REH 

9510 DI=l:CLS:PRIHTe0, "TOTAL PROBLEMS" :PRINT0256, "TOTAL CORRECT" 

9520 F0RI1=15449T015486:P0KEH, 131:P0KEM+512, 176:NEXTM 

953OFORH=15449TO1602OSTEP64;POKEH,191:POKEH+37,191:NEXTM 

9550 FORH=15721TO15739:POKEM,140:NEXTM:Pa(E15719,l72:POKE1572O,l 

56 : P0KE15784, 171 : P0KE15785, 148 : P0KE15848, 170 : P0KE15849, 149 : POKEl 

5911, 184:P0KE15912, 135 

9600X=RND(12):V=RND(12) 

9610AN=X*V 

9620 flN(l)=flN:flN=X:X=flN<l) 

9630 X<1)=X<2)=X(3)=X(5)=O:IFX=V6OTO9600 

9700 P=P+1:6OSUB450O:GOSUB980O:GOSUB6O6O:GOSUB210:GOSUB380:GOTO 



9800 IFX>99 X<1)=1 : X<2>=X-100 

9805 11=15788 

9810 IFX(1)=1 GOSUB5O10 

9815 IFX=108 X<2)=O:X(3)=8:6OTO9860 

9820 IFX<10 X<3)=X: 11=11+5 :GOT09910 

9830 IFX>9ANDX<100X(2>=X 



9840 IFK<2»3 K(5)=K(2Vi0:X(2)=INT«(5)):X<3)=INT<(X(5)-X(2»*l 

8+.2) 

3860 l1=H+5 

9880 IFK(2)=0 GOSie 5000:(5OTO9910 

9908 ONK<2)GOSLe50ia 5620, ^38, ^a 5050, 5^8. 5878, 5888, 5898 

9910 «=H+5 

9928 !FX(3)=0GOSie5^:GOTO9990 

9340 ONX(3)6OSIJe58i0, 5828, 5838, 5848, 5858, 5860. 5870, 5888, 5838 

9998 RETURN 
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The newest version of TRS-80's first animated 
graphics game - Android NIM - now with more 
animation and sound! 

Level II, I6K- $14.95 



mBlw 



A computer reptilian 
version version of "2V, 
complete with arrogant 
snakes and appropriate 
sound. 

LevellL16K $14.95 



Two in one: Game of 
Life, at an astounding 
100 generations a min- 
ute, plus Battle of Life 
with animated creatures 
and sound. 

Level ll,16K $14.95 



Cubes gives you the solution to Instant 
Insanity®*, a numbered block puzzle. Drive 
your computer nuts trying to figure how to 
arrange the 4 blocks on your screens. Each side 
shows four different numbers. Level II, I6K 

* instant Insanity® is a Parker $9.95 

Brothers registered trademari( 

TcCTRI-SO leflupcifc Cx€h<iA9C 

' 17 BRIAR CLIFF DRIVE MILFORD. NEW HAMPSHIRE 03055 



Rush me the next 12 



PO Box 68 
Milford, NH 03055 

" your BASIC software magazino" 

issues of SoftSide. 



DUSA bulk-$15 1 yr. n$28-2 yrs. nCANADA/MEXICO $22 1 yr. 
DUSA first class $22 1 yr. DOVERSEAS airmail $27 1 yr. 

DAPO/OVERSEAS surface $22 1 yr. Please remit in US funds ONLY 



^SJJ[ Credit Card [^J^l 



Exp. Date- 
Signature^ 

Name 

Address— 
City___ 



Telephone your charge card order! Call our 
Subscription office Monday through Friday 
9:30 to 5:30 (Eastern time) at 603-673-5144 



Interbank #(M/C only). 



State. 



-ZIP. 




BATTER 
UP! 

by DAVID BOHIKE 

IT'S SPRING!! Time for stolen 

bases, fly balls, and sliding into 

third. Why not let your computer in 

on the excitement? Your TRS-80 

s the pitcher; you and your 

opponent take turns at bat. Will 

you hit a grand slam or pop 

out? Your skill determines the 

outcome in this action 

packed game with pleasing 

graphics. Sorry — franks 

and beer not included! 

For Level ll,16K -$5 95 

TRI-60 lefluKiic £xchcifi9c 

17 BRIAR CUFF DRIVE MILFORO. NEW HAMPSHIRE 03055 




^ aUISSION 
liii|iossilile 

8i)ilveiitiii 



^ft 



by Scott Adams 

Good Morning, your 
mission today is to 



and so it begins: will 
you be able to complete 
the assignment in time? 
Or is the world's first 
automated nuclear nu- 
clear reactor doomed? 
This one's well-named 
— it's hard. Plenty of 
suspense for real-life 
drama in simulation! 

Available on Tape 
Level II, 16K - $14.95 



Additional Adventures for Level II 16K tape systems: 

Pirate's Adventure.. $14.95 Adventureland $14.95 

Adventures for 32K disk systems (2 adventures on 1 disk): 

Pirate's Adventure PLUS Adventureland. ..$24.95 

Tf S TRI-80 lofluiQfft CKchoAOC 

9 17 Briar Cliff Drive Milford, New Hampshire 03055 
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SUPCft 
SUB 



You saw the poster out- 
side the county courthouse. 
There was a dashing sailor 
with his arm around a 
beautiful girl, with grass huts 
and palm trees in the back- 
MICHAEL ground. Join the Navy and see 
WINTER *^® world. It was the middle of 
winter, and you had no girlfriend, 
and so you fell for it, hook, line and sinker. . . 

You've seen the world, all right ... and discovered that it's two-thirds 
water. Not only that, you're in the submarine service, and all you see most 
of the time is steel walls, pipes and gauges. There are times when even a 
wave would look good. And then they had to start this miserable war. 
Now you don't even know if you'll live long enough to see another wave. 

Still, your home port is Pearl Harbor, and they do have palm trees and 

beaches full of gorgeous girls might as well go back to playing good 

guys versus bad guys. 



2 CLEAR 75 
5 REM 
10 REM 

20 REM **3ic*j|cHcj|c**3ieHc** SIFER SL6 ************* 
20 REM *3»c***3ieHc:i:**** liRlTTEN BV *♦****<«*>»«**** 
40 REM ********** MI CFtfEL WINTER *********** 
45 REM ******** NEW CflNflflNCT. 06840 ******* 
50 REM ************************************* 
60 REM *********** VERSION 12 ************* 
70 REM ********** JflNUflRV 1979 ************* 

VjPy rCtfl ************************************* 

95 REM * * GRME INITflL SET UP * * 

97 TT=DO 

98 REM * * * * SIN MflVE FOR CREDITS * * * * 

100 B=0 

101 FOR T=0 TO 32 STEP . 25 

102 fl=INT<26+25*SIN<T)) 

103 PRINT TflB<fl-l); 

104 IF B=l THEN 108 

105 PRINT-SUPER SUB" 
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106 B=l 

107 GOTO 110 

108 PRINT"BV MIKE WINTER" 

109 B=0 

110 NEXT T 

120 PRINT e 897. "DO VOU NEED INSTRUCTIONS"; : INPUT fl$ 

: R*=LEFT*(fl$,l> 
120 IF fl*="V" GOSUB 25000 
125 PRINT @ 96L "DEPOSIT 25 CENTS TO PLflV"; : INPUT D* 

137 IF D* O "25" THEN GOTO 125 

138 INPUT''MHfiT LEVEL OF PLflV DO VOU WANT (EflSV/ HflRD> V 
ERV HflRD/ EXPERT) ">L*: L$=LEFT$<L$. 2) : IF L*="Efl" THE 
N DO=20 

129 IF L$="Hfl" THEN D0=14 
140 CLS : INPUT"WHflT IS VOUR IffiME CflPTflIN"jB$ 
142 IF L$="VE" THEN D0=9 
144 IF L*="EX" THEN D0=4 
150 RflNDOM 

152 F$="N" : F2$="N" : TT=DO : SC=0 
155 REH * * * GETS RflNDOM OCEflN * * * 
160 D=RND<6) 

170 ON D GOTO 180/ 190. 200. 210. 228. 220 
180 C$="NORTH ftLflNTIC" : GOTO 248 
190 C$="NORTH PflCIFIC" : GOTO 240 
200 C$="INDIflN" : GOTO 240 
210 C$="flRCTIC" : GOTO 240 
220 C$="SOUTH fiLflNTIC" : GOTO 248 
220 C$="SOUTH PflCIFIC" : GOTO 240 

240 PRINT"WELL CflPTflIN "i B$i " ARE VOU REflDV TO COMBAT T 
HE" 

245 PRINT"EVILS OF THE ";C$;" OCEAN" : INPUT DUMMEV* 
250 F01 ************************ 
* * * 

265 fl=0 

266 REM ***** flLL TORPEDOS EXPENDED ?? * * * * * 

267 IF DO > THEN 338 ELSE 32767 

330 CLS : REM * * DRflW PLflVING flREfl WITH CORRESPONDING 

DEPTH * * 

360 PRINT 9 0. "METER" 

363 P=140 : S=0 



365 FOR fl5=18 TO fi STEP 18 : S=S+64 

370 PRINT § S,fl5 

380 NEXT fl5 

390 FOR Q=10 TO 122 : SET<Q.0) : SET(Q,46) : NEXT Q 

400 FOR W=l TO 46 : SET(10.W) : SET(122,W) : NEXT M 

401 FOR 11=1 TO 47 : REM * * * * SETS RflNDOM MINES * * * 
* 

402 V8=RND<37)+3 : X8=RND(109>+12 : SET<X8/V8) : NEXT M 
410 REM ******* DRAM SUB ******* 

420 FOR R=56 TO 64 : SET<R.45) : NEXT R : SET(59,44) 

438 SET<60. 44) : SET<60.43) 

433 K2=56 : K3=64 : V2=59 : V3=60 : C2=60 : V9=42 : F*= 

"N" : F2*=''N" 

435 REM * * * SIZE AND SPEED OF SHIP IS HERE DEFINED * 
* * 

436 REM * * * * * ALL TORPEDOS EXPENDED ??***** 

437 RflNDOM ; IF DO > 8 THEN 438 ELSE 32767 

438 REM * * * LINE 448 DETERMINES TVPE OF SHIP * * * 

439 REM * * * NOTE NO SHIP TWICE INflROW****** 
448 G=RND<6) : IF G=GB THEN 448 

443 QB=G 

444 REM * * * * LINE 445 FJNDS RflNDOM DEPTH ***** 

445 K7=RND<32>+ -1 
447 Z=K7+4 

458 ON G GOTO 468.470.488.498,580,518 
455 REM * * SmLL FflST P. T. BOTT * * 
468 FOR T=116 TO 121 : SET<T,Z) : NEXT T : FOR K=117 TO 
120 : SET<K,Z-1) : NEXT K 
461 FOR B=121 TO 18 STEP -1 : GOSUB 5008 

467 RESET<B, Z) : SET<B-6. Z) : RESET<B-1. Z-1) : SET(B-5. 
Z-1) : NEXT B 

468 FOR R=ll TO 17 : RESET<R, Z) : NEXT R : FOR R2=12 TO 
16 : RESET<R2. Z-1) : NEXT R2 : GOTO 435 

469 REM * * LflRGE SLOW CRUISER * * 

478 FOR J=112 TO 121 : SET<J.Z) : NEXT J : FOR J2=114 T 

117 : SET<J2,Z-1) : NEXT J2 : SET<116,Z-2) 

471 FOR B=121 TO 21 STEP -1 : GOSUB 5888 

477 RESET(B. Z) : SET(B-10.Z) : RESET<B-4.Z-1) : SET<B-8 

. Z-1) : RESET(B-5, Z-2) : SET(B-6, Z-2) : FOR H7=l TO 03 

: NEXT H7 : NEXT B 



478 FOR R=ii TO 21 : RESET(R.Z> : NEXT R : FOR R2=15 TO 
17 : RESET<R2.2-1) : NEXT R2 : RESET (15, 2-2) : GOTO 42 

5 

479 REM * * VERV LftRQE VERY SLOW TANKER * * 

480 FOR N=188 TO 121 : SET<N,2> : NEXT N : FOR M=10 TO 
119 : SET<M.2-1) : NEXT M : FOR L=114 TO 117 : SET(b2 

-2) : NEXT L 

481 FOR B=121 TO 24 STEP -1 : GOSUB 5088 

487 RESET<B.2) : SET<B-12,2) : RESET < B-2, Z-1) : SET<B-8 
,2-1) : RESET<B-2, 2-2) : SET<B-6,2-2) : FOR H7=l TO 14 

: NEXT H7 : NEXT B 

488 FOR R=ll TO 25 : RESET<R, 2) : NEXT R : FOR R2=16 TO 
23 : RESET(R2, 2-1) : r€XT R2 ; FOR R3=17 TO 21 : RESET 

<R3,2-2) : NEXT R2 : GOTO 435 

489 REM * * SAME BOATS AS ABOVE BUT FROM OPP. DIRECTION 

* * * 

498 FOR U=ll TO 16 : SET<U, 2) : NEXT U : FOR 1=12 TO 15 
: SET <L 2-1) : NEXT I : REM * * * SMALL FAST P. T. BOAT 

* * * 

491 FOR B=ll TO 114 : GOSUB 5888 

498 RESET<B, 2) : SETCB+6,2) : RESET<B+L2-1) : SET<B+5, 
2-1) : NEXT B 

499 FOR R=121 TO 113 STEP -1 : RESET(R,2) : NEXT R : FO 
R R2=120 TO 114 STEP -1 : RESET <R2,Z-1) : NEXT R2 : GOT 
435 

588 FOR W=ll TO 21 : SET<W,2) : rCXT U : FOR Q=16 TO 19 
: SET(Q, 2-1) : NEXT Q : SET<17, 2-2) : REM * * LARGE SL 
OW CRUISER * * 
581 FOR B=ll TO 118 : GOSUB 5888 

588 RESET(B,2) : SET<B+18,2) : RESET<B+5, 2-1) : SET(B+8 
,2-1) : RESET<B+6, 2-2) : SET(B+7,2-2) : FOR H7=l TO 83 

: NEXT H7 : NEXT B 

589 FOR R=121 TO 111 STEP -1 : RESET<R,2) : NEXT R : FO 
R R2=119 TO 116 STEP -1 : RESET <R2, 2-1) : NEXT R2 : RES 
ET<117,2-2) : GOTO 435 

518 FOR T=ll TO 25 : SET<L2) : NEXT T : FOR T2=16 TO 2 
3 : SET(T2,2-1) : NEXT T2 : FOR T3=18 TO 21 : SET<T3,2- 
2) : NEXT T3 
511 FOR B=ll TO 186 : GOSUB 5888 



512 REM * * VERV LflRGE VERV SLOW TANKER * * : REM START 
S AT 510 

998 RESET<B,Z) : SET(B+15,Z) : RESET <B+5/Z-l) : SETCB+1 
3/Z-l) : RESET<B+7,Z-2) : SET(B+11. Z-2) : FOR H7=l TO 1 
2 : t€XT H7 : NEXT B 

999 FOR R=121 TO 107 STEP -1 : RESET<R,Z> : fCXT R : F 
OR R2=119 TO 112 STEP -1 : RESET<R2, Z-1) : NEXT R2 : FO 
R R3=121 TO 18 STEP -1 : RESET<R3. Z-2) : NEXT R3 : GOTO 

435 

1000 REM * « * INKEV* SUBROUTINE NOTE: FOR LEVAL II * * 
* 

4999 REM * * * MOVE SUB TO LEFT IF LEFT ARROW PRESSED * 
* * 

5000 QX=PEEK(14457) : IF QX=32 AND K2 > 11 AND F$ O "F 
" THEN K2=K2-1 : K3=K3-1 : V2=V2-1 : V3=V3-1 : 02=02-1 

: SET(K2,45) : SET<V2,44> : SET<C2,43) : RESET<K2+9, 45) 
: RESET<V2+2,44) : RESET<e2+l,43) 

5009 REM * * MOVE SUB TO RIGHT IF RIGHT ARROW PRESSED ♦ 
* 

5010 IF Q/i=64 AND K2 < 113 AND F$ O "F" THEN K2=K2+1 : 
K3=K3+1 : V2=V2+1 ; V3=V3+1 : C2=C2+1 : SET<K3,45) : S 

ET<V3,44) : SET<C2,43) : RESET<K3-9, 45) : RESET<V3-2,44 
) : RESET(C2-1, 43) 

5019 REM * * * FIRE MISSLE IF '[ ' PRESSED * * * 

5020 IF QX=8 AND F$ O "F" AND DO > THEN F$="F" : V9= 
42 : D0=D0-1 

5030 IF F$="F'^THEN X9=C2 : SET(X9,V9) : V9=V9-1 : RESE 
T(X9,V9+2) : SET<C2,43) : IF V9=2 THEN RESET<X9/V9+1) : 
F$="N" 
5035 REM ******* TEST FOR A HIT * * * * * * * 
5040 IF P0INT<X9,V9-1) THEN GOSUB 10000 
5045 REM ***** * UPDATES STATUS REPORT ****** 
5050 PRINT e 702, "TL"; : PRINT 764, DO; : PRINT 838, 
•SD"i : PRINT 892, SC; 

5055 REM * * * * PROGRAMS SHIPS TO FIRE AT SUB * * * * 
5060 IF G > 3 THEN 5100 
5070 IF B=C2+3 THEN VE=Z : XE=B : F2*="F" 
5080 IF F2»="F" THEN VE=VE+1 : SET(XBVE> : RESET(XE,VE 
-2) : IF VE=45 THEN RESET<XE,VE) : RESET (XE,VE-1) • F2$ 
="N" 



„p. 


THEN 32008 


+ 


(X9+2=B) + 


+ 


(X9-3=B) + 


+ 


(X9=B+2) + 


<X9=B+6» TH 


♦ 


<X9=B+2) + 


N" 


: GOTO 1001 



5098 IF P0INT<XE,VE+1) AND VE=44 AND F2*="F" THEN 32088 

5095 RETURN 

5188 IF B=C2-3 THEN VE=Z : XE=B : F2*="F" 

5118 IF F2*="F" THEN VE=VE+1 : SET(XE,VE) : RESET<XE,VE 

-2> : IF VE=45 THEN RESET(XE, VE) : RESET<XE, VE-1) : F2$ 

="N" 

5115 REM * * * * TEST FOR SUBS DESTRUCTION * * * * 

5128 IF P0INT(XE,VE+1) AND VE=44 AND F2*='' 

5208 RETURN 

18000 REM * * TEST FOR A HIT * * 

10018 IF <L$="EA") * <V9-1=Z) * «X9+1=B) 

<X9+3=B) + <X9+4=B) + <X9-1=B) + (X9-2=B) 

(X9-4=B» THEN F$="N" : GOTO 18815 

18011 IF (U="HA") * <V9-1=Z) *«X9=B+3) 
<X9=B+1) + (X9=B) + <X9=B+4) + <X9==B+5) + 
EN F$="N" : GOTO 18815 

18012 IF <L$="VE") * <V9-1=Z) * «X9=B+3) 
<X9=B+1) + <X9=B+4> + <X9=B+5)) THEN F$= 
5 

18813 IF CL*="EX") * <Y9-1=Z) * (<X9=B+3) + <X9=B+2) + 
<X9=B+4)> THEN F$="N" : GOTO 18015 

10014 GOTO 10028 

10015 SET<X9,V9-1) : RESET<X9, V9+2) : FOR E=l TO 75 : V 
3=RND<8)+V9-l-5 : X3=RND<12>+X9-9 : SET<X3;V3) : NEXT E 

; SC=SC+1 : GOTO 250 
10828 RESET(X9,V9+1) : F*="N" : RETURN 
25d&i KEH * * * * * * * * INSTRUCTIONS * * * * * * * * 
25818 PRINT" IN THIS SIMULATION VOU ARE THE COMMANDER" 
25828 PRINT"OF A SUBMARINE PATROLLING THE BOTTOM OF A" 
25838 PRINT"RANDOM OCEAN. VOUR MISSION IS TO DESTROY" 
25040 PRINT"AS MANY SHIPS AS POSSIBLE HITH XX TORPEDOS" 
25050 PRINT"TO MOVE VOUR SUB USE THE RESPECTIVE ARROWS" 
25068 PRINT"ON THE KEYBOARD. USE THE f KEY TO FIRE A" 
25878 PRINT"TORPEDO. IF YOUR TORPEDO HITS ONE OF THE RA 
NDOM" 
25888 PRINT"MINES IT WILL BE DESTROYED. THE SHIPS GOING 

U 

25090 PRINT"OVERHEAD WILL ALSO FIRE AT RANDOOM LOCATION 
S. " 



25100 PRINT"TORPEDOS AND IF ONE OF THESE HITS VOU, VOUR 
SUB" 
25110 PRINT-WILL BE DESTROYED. ALSO AFTER VOU HAVE FIRE 
D" 

25115 INPUT"HIT ENTER TO TURN THE PAGE";P$ : CLS 
25120 PRINT"A TORPEDO VOU WILL LOSE CONTROL OF VOUR SHI 
P" 

25130 PRINT-UNTIL IT IS EITHER DESTROYED OR IT REACHES 
THE TOP" 

25140 PRINT"OF THE DISaAV. AT THE RIGHT OF THE SCREEN 
WILL" 
25150 PRINT"BE A STATUS REPORT: 'TL'=TORPEDOS LEFL " 

25160 PRINT" 'SD'=NUI1BER OF SHIPS DESTROYED. 

25161 PRINT-THE SKILL LEVEL YOU CHOSE WILL HAVE TWO AFF 
ECTS ON" 

25162 PRINT"THE DIFFICULTY OF THE GAME -1- WILL BE AS T 
HE SKILL" 

25163 PRINT"LEVEL INCREASES THE NEHBER OF TORPEDOS DEC 
REASES, " 

25164 PRINT«-2- WILL BE AS THE SKILL LEVEL INCREASE IT 
WILL BE" 

25165 PRINT"HARDER TO DESTROY A SHIP BECAUSE YOU WILL H 
AVE TO" 

25166 PRINT"HIT CLOSER TO THE SHIPS REAR TO DESTROY IT. 

II 

25167 PRINT"NOTE: IT MAY BE NECESSARY TO HOLD DOWN THE 
'[' KEV" 

25168 PRINT"FOR A FEW SECONDS TO FIRE. * * HAVE FUN * * 

25170 PRINT" * * * GOOD LUCK * * * 

25180 FOR X=l TO 7800 : NEXT X 

25190 RETURN 

28000 REM * * * END OF GAME: SUB DESTROYED * * ♦ 

32000 FOR Q=l TO 75 : Y=RND(4>+41 : X=RND<9)+K2 

32010 SET<X,Y) : NEXT 6 

32020 FOR V=l TO 5© : NEXT V : CLS 

32030 PRINT 9 523. "YOU BLEW IT CAPTAIN ";B$; 

32035 FOR R=l TO 2332 : NEXT R 

32040 CLS : INPUT"DO YOU WANT TO PLAY AGAIN"; A* 

32050 A$=LEFT$<A$,1) : IF A$="Y" THEN 135 ELSE 65529 
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22767 REH * * * END DUE TO LOSE OF ALL TOi?PEDOS * * * 
34000 CLS : PRINT"CRPTflIN VOU HAVE EXPENDED ALL OF" 
24010 PRINT"VOUR TORPEDOS. " 

24020 PRINT" * * * HERE IS VOUR RATING * * * 
34020 PRINT" VOU DESTROYED "iSC;" SHIPS WITH "TT" TOR 
PEDOS" 

24021 IF TT=14 THEN SC:=SC+8 

24022 IF TT=9 THEN SC=SC+10 
24022 IF TT=4 THEN SC=SC+10 

24040 IF SC > 18 PRINT"6REAT WORK CAPTAIN I AM GOING TO 

RECOMEND A PROMOTION!!" : GOTO 28070 
24050 IF SC > 14 PRINT"NOT BAD COLID BE BETTER BUT mi 
BAD BETTER LUCK NEXT TIME!!" : GOTO 28070 
24060 IF SC > 10 PRINT"HOPE VOU'RE BEGINER WITH A SCORE 

LIKE THAT!!" 
24070 IF SC > 10 PRINT" IMPROVE ON THAT A SECOND TIME AR 
0M>!" : GOTO 28070 

24080 PRINT"A SCORE OF "i Sd " SHIPS DESTROYED WITH "i TT 
;" TORPEDOS" 

24090 PRINT" IS A DISGRACE TO THE NAVV! ! VOU HAD BETTER 
DO BETTER rCXT TIME!" 

28070 ir«^LIT"DO VOLI WANT TO TRV AGAIN".: A$ : R$=LEFT$<A$, 
1> 

28080 IF A*="V" TffiN 125 
65529 PRINT g 520. "BVE BVE CAPTAIN!!" : END 




TIRED OF DISK ERRORS? 



STOP BLAMING YOUR DRIVES - 
FIX YOUR DOS! 

NEWDOS 



ISfEWDOS, by Apparat, is the third generation disk operating 
system for your TRS-80. NEWDOS corrects over 70 errors 
and omissions in TRSD0S2.1 and disk BASIC, yet the two 
are completely compatible! Programs and files saved under 
one can be used with the other interchangeably. Going from 
TRSDOS 2.1 to NEWDOS is like going from Level I to 
Level II: more power, more convenience, greater speed. 

NEWDOS has the power to: 



•Use all DOS commands 
(incl. directory) in BASIC 

•Automatically load and run 
a BASIC program 
on power-up 

•Produce variable cross- 
reference tables 



•Open 'E' to add to 

sequential files 
•Append files 
•Use your line printer as 

a screen printer 
•Renumber BASIC programs 
•End keyboard bounce 



And^ best of all, say goodbye to system crashes, lost data and 
wasted time caused by your old, bug-ridden system software. 



You paid $500 for your disk drive — 
why struggle with it? 



Apparatus NEWDOS is fully documented and available 
for only $49.95 from: 

TcE^'^^'®^ lef luicifc CKch<iAC|e 

,^. 17 Briar Cliff Drive fy/lilford. New l-iampshire 03055 




If NEWDOS is the Cadillac of disk-operating 

systems, then NEWDOS + has to be the 

Ferrari. NEWDOS -h retains all the features of 

the original NEWDOS, and adds 

the following utilities: 

Editor-assembler for disk LJ 

Disassembler (Z80 machine code) ^ 

LM Offset-allows transfer of any system tape to a QJ 

disk file (automatically relocated) 

BASICVLevel one BASIC saved on disk C 

LV1DSKSL - not a typo, this saves and loads BASIC1 C 

programs to disk 

DIRCHECK-tests and lists disk directory C 

Superzap-display/print/modify any location C 
in memory or on disk 

Superzap alone is worth the price of this 

package. With it, we've quickly recovered lost 

programs, restored killed data files, and 

saved many hours of effort. The NEWDOS + 

manual is another plus: clear and concise, it 

even includes a byte-by-byte explanation 

of the directory file ... 

invaluable if you ever need to 

save a crashed disk! 



The price for all this computer power? That's the best part! 

NEWDOS + , Just $99.95 

NOTE: Use of this software may require documentation available only with the 
purchase of Radio Shack TRSDOS 2 1 and /or the Radio Shack Editor /Assembler 

TcE TRI ©^ lefluKifc Ciiclioii9< 

m 17 BriafCliM Drive Millord. New Hampshirs 03055 
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TRS-80'*«*»*^ 
•w*HOTLINE 

If you ever find your- 
self in need of some fast 
answers, an easy solu- 
tion or just a sym- 
pathetic ear, call 
SoftSide'sTRS-BO 
HOTLINE.FromZto 
9:30, every Tuesday 
evening (EST), our 
resident programmers will t>e 
"on line" to offer BASIC pro- 
gramming assistance to Level 
I and M TRS-80 users in need 
ofafix. 




HOTLINE 



603-67^-5144 



m ^tm'mmmm'mmmm 



EXPERT 

CONSULTANT 

NEEDED 

I need a computer consultant 
who can design, structure and 
program time series in stocks, 
bonds and commodities. 

I am prepared to pay a large fee 
to the right person. 

For further details, please write 
to: 

Jack Allison 

Box 407 

LittleNeck, NY 11363 



mmmmrniWimimmm 



TRS-80 PROGRAMMING HINT 



Suppose while writing a program, you want to 
display some specific graphics. How can you 
determine how to find them? Here's a way to 
figure them out: 

Number the square with binary decimal 
equivalents as shown in the diagram at right. 
Find the decimal number equivalent to the 
graphic desired; add this number to 128. This 
gives you the CHR$[ - ] needed to produce 
your desired result. 



1 


2 


4 


8 


16 


32 



EXAMPLE: 
















2 + 4 + 32 = 38 
plus 128 

CHR$(166) results in 



< 



urCrir.OBIES 



TfC fflorkel Bci/koi 

* CdTIILOC 



SP/{ i :„ t 



^.h^-y. 




GAMES PEB80r^ 
BOOKS 



mm . 

ACCESSORIES 
PERSONAL . 
iOWARE ACCESSORpS 
SPECIAL PURPOSE 

HAIIDWA8E ACCESSORIES 
SS ACCESSORIES 



CAflKf 



CRIBBAGE 

Roger W.Robitaille.Sr. 
You versus the computer in this game of 
cribbage played by standard rules. 
Computer shuffles, deals, keeps score 
and wins ... unless you're very careful! 
Featured in SoftSide premier issue. 
Levellorll,16K $7.95 



BRIDGE CHALLENGER 

George Duisman 

You and the dummy play 4-person 

Contract Bridge against the computer. 

Deals hands randomly or according to 

your criterion for high card points. You 

can review tricks, swap sides or replay 

hands when cards are known. 

Level II, 16K $14.95 



BACKGAMMON 

Scott Adams 

A completely different program, just 
waiting to beat you ... it plays a pretty 
mean game, so be prepared! ! 
LevellUGK , , $7.95 

SARGON CHESS 

Dan& Kathe Spracklen 
Winner of the 1978 San Jose Micro- 
computer Chess Tournament. One of the 
most challenging chess programs ever. 
Level II, 16K $19.95 



CHESS COMPANION 

Michael Kelleher 

Combines chess clock features with 

ability to record moves while action is fast 

and furious. Listing may be reviewed at 

anytime. 

Level II, 16K $7.95 



MICR0CHESS1.5 

Peter Jennings 

tn machine language, offers 3 levels of 

play with every move checked for legality 

and current position displayed on a 

graphic chessboard. Play White or Black, 

set up and pfay from special board 

positions, even watch the computer play 

against itself? 

Level I or II. 4K $19.95 

THREE DTICTAC TOE 

Scott Adams 

Everyone knows this game, but how 

about a 4 X 4 X 4 version? Three skill 

levels for computer competition ... author 

warns you to practice before tackling the 

computer's third level of skill! 

Level I or If. 16K $7.95 



TIME BOMB 

David Bohike 

Somewhere Inside a towering skyscraper 
a time bomb mechanism is ticking away. 
Your mission Is to locate and disarm the 
explosive device before detonation... no 
easy feat in this maze-like structure! 
Level I or II, 16K $4.95 



TROLL'S GOLD 

George Blank 

Chase game for children of all ages! The 

troll Is hidden deep within the caves, 

jealously guarding his gold. You must 

descend to his lair and escape with the 

booty without him capturing and (ugh) 

eating you! 

Level I or II, 16K $4.95 



CONCENTRATION 

Lance Micklus 

One of the most popular television game 
shows ever devised now comes to the 
minicomputer! Win campers, boxes of 
nails, gifts galore ... take the chance of 
forfeiting them later in the game. There's 
something for everyone in Concentration. 
Most important of all, remember where 
the items appear on the playing board. 
Level I or II. 16K $7.95 

AMAZIN' MAZES 

Robert Wallace 

Off you go into the maze; but stop for a 
moment! The passageways are changing 
... find the fastest way out of this 
nightmare. The sooner you escape, the 
more points you'll score. 
Level II, 16K $7.95 




ROBOT 

Lance Micklus 

Struggle to keep your wits about you as 
your stalked by an army of robots through 
a seemingly endless maze. It's you 
against them as you simultaneously try to 
avoid and trick them into their own trap. 
Level II, 4K $4.95 



MASTERMIND II 

Lance Micklus 

This version of the classic game lets you 
and the computer take turns making and 
breaking secret codes. Takes less than 3 
seconds for computer to make a guess 
and can usually figure out a code by the 
5th try. Object tape which loads in 
addresses 7600 to 7FF0 using SYSTEM 
command is supplied. Program is also 
DOS compatible so object code may be 
stored on disk using TAPEDISK and then 
executed under DOS. A challenging 
game of logic, strongly recommended. 

$7.95 
Source Listing $20.00 



BREAKAWAY 

Lance Micklus 

Challenging game of skill and dexterity. 

Real time excitement just like traditional 

pinball. You control speed and direction 

of the ball as you try to 'break away' the 

playing field. 

Level I or II, 4K $4.95 



END ZONE 

Roger W.Robitaille.Sr. 
Authentic football simulation, right down 
to the 2-minute warning. Complete with 
everything except the cheerleaders. 
Played in four 15-minute quarters. 
Level I or II, 16K $7.95 



BATTER UP 

David BohIke 

Real time prtch and hit action game with 
the computer as designated pitcher. Will 
you hit a grand slam or pop out? Your 
skill determines the outcome in this 
action packed game with pleasing 
graphics. For one or two players. 
Level II, 16K $5.95 



SLALOM 

Denslo Hamlin 

A real time ACTION program! Choose 
between the Slalom, Giant Slalom or 
Downhill courses. Be fast, skillful, 
daring, but don't get hurt — or worse! 
Your run politely rated at end of course. 
Level II, 16K $7.95 



TEN PIN 

Frank Rowlette 

High speed graphics superbly presented 
in this simulation of the great indoor 
sport. A game of coordination, scoring 
true to the rules of the sport. Computer 
tallies for one or two players, records 
spares, strikes, splits, open frames. 
Levelll,16K $7.95 



KENTUCKY DERBY 

Place your bets and urge your favorite 
horse (out of the five) on to pounding 
victory in this exciting race game. 
Level I or II, 4K $4.95 




X-WING FIGHTER 

George Blank 

Put yourself into the cockpit of an X-Wi-ng 
fighter! Extensive use of the INKEY$ 
function puts all ship's controls at your 
fingertips without ever hitting ENTER. 
Long range sensors warn of approaching 
aircraft prior to visual contact. After 
sighting, their size increases with their 
proximity. Realism in Trek-type gaming. 
Level II, 16K $7.95 



STAR TREK III.3 

Lance Micklus 

One of the most advanced Trek-type 
computer games ever written! Object is 
to explore as much of the galaxy as 
possible, destroy 20 Kllngons and locate 
five Class M planets. Exploration facet of 
the game gives it a whole new dimension. 
Extensive use of fast graphics, including 
3-D galaxy. See phasers fire, hit Kllngons 
and explode. Hazards include large stars, 
black holes, and a pulsar which makes 
space noise in adjacent quarters where 
Klingons hide. Docking must be precisely 
controlled to avoid failure or collision. At 
game's end, you return to Star Fleet 
Headquarters where collected data is 
evaluated by ship's computer and your 
performance rated. Takes about two 
hours to play a game. 
Level II, 16K $14.95 



DOG STAR 

Lance Micklus 

You're trapped aboard an enemy battle- 
star ... can you rescue the princess, find 
the plans, retrieve the treasure and 
escape? 

Level II, 16K Reg. Price, $9.95 

Special this month $7.95 

ADVENTURES 

Scott Adams 

Two adventure situations, pirate and 
land, on one diskette. You'll feel as if 
you're manipulating HAL, the computer 
from 200t. Adventureland-you wander 
through an enchanted world trying to 
recover the 13 lost treasures. You 
encounter wild animals, magical beings, 
many perils and puzzles. Pirate- Meet the 
pirate and his daffy bird, see many 
strange sights, as you attempt to go 
from a London flat to Treasure Island. 
Disk,32K $24.95 

ADVENTURES ON TAPE 

Scott Adams 

Either of the adventures described above 

available on 16K, Level II tape. 

Pirate's Cove Tape $14.95 

Adventureland Tape $14.95 

MISSION IMPOSSIBLE ADVENTURE 

Scott Adams 

Good morning. ..your mission Is. ..and so 
it goes. Will you be able to complete your 
assignment in time, or is the world's first 
automated nuclear reactor doomed? 
Level II, 16K $14.95 

SAFARI 

David Bohike 

You're in the running for a major film 
contract at a Hollywood studio. To 
capture the contract, photograph the 
largest number of wild animals in their 
natural surroundings ... that's if your 
party isn't lost, or doesn't starve to death 
or lose all its cameras. 

Level II, 16K $7.95 



TREASURE HUNT 

Lance Micklus 

Explore caves in search of 20 hidden 
treasures . . . some easy, some hard to find 
because you have to figure out how. The 
more you play, the more secrets you'll 
discover and the more treasure will be 
yours. All the treasures can be found in 
about an hour of play if you know what 
you're doing. First problem: draw a map 
of the caves. Good luck, you'll need it. 
Level I or II, 16K $7.95 

'ROUND THE HORN 

George Blank 

You're the captain of a clipper ship racing 

from New York to San Francisco. You 

must find favorable winds and currents to 

provide safe and expedient passage 

around South America through the Straits 

of Magellan. Superb Graphics. 

Level II, 16K $9.95 



PORK BARREL 

George Blank 

Put yourself in the shoes of an aspiring 
Congressman. Given a breakdown of your 
constituency by percentages, how would 
you vote on various sensitive issues? in 
this simulation, you get to put your vote 
where your mouth is. Don't worry, the 
voters in your district will let you know 
just how they feel! 
Level II, 16K $9.95 



KAMIKAZE 

Russell Starkey 

Command your ship against attacking 
suicide planes. Defend your ship and 
cargo against fearless enemy pilots. Will 
you survive to retirement or find yourself 
adrift in a lifeboat? A live-action game 
with machine language graj3hies (plane 
and ship) for fast-paced excitement and 
fun. Three levels of play..;beginner, 
amateur and professional. 
LevellU6K $7.95 



TfC Order Form 

1^ Special prices in effect 60 days from mailing 

DESCRIPTION f^EMORY LEVEL PRICE 



























































ADD HANDL 


NGCHA 


RGE 


$1.00 


ADDITIONAL CHARGES 




TOTAL ENCLOSED 

D Check DVISA D 


WITH ORDER 

Master Charge 





D Money Order 
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TRS-80 SofluKiie EKChcififc 

17 Briar Cliff Drive IVIIIford, New Hampshire (»p55 

Telephone [603] 673-5144 

Level II software available on disk for a $5.00 (per order) medium charge. This 
extra fee Is for any number of programs transferred to disk from tape when you 
order, if the order exceeds the capacity of a single disk, we absorb the extra 
cost. 



ALL SOFTWARE GUARANTEED TO LOAD AND RUN. If you experience 
difficulties, simply return the tape or disk for free replacement. Send to the 
attention of Bette Keenan, Customer Service Representative; please 
enclose a brief note and your name and mailing address with the software. 



otherwise, we 



Please state level and memory size on order form 
automatically ship Level 11 cassettes. 

Be sure to include handling charge and any additional charges when figuring 
your total. All orders shipped within 48 hours. 

Charge card account number 

































Signature..... 



Exp. Date. Inter. # 

Charge customers: Please fill in account information above and below 



Name.. 



Address.. 
City 



..State.. 



..ZIP.. 



ALL SOFTWARE SOLD ON AN AS-IS BASIS WITHOUT WARRANTY TSE 

assumes no liability for loss or damage caused or alleged to be caused directly 
or indirectly by equipment or products sold or exchanged by them or their 
distributors, including but not limited to any interruption in service, loss of 
business or anticipatory profits or consequential damages resulting from use or 
operation of such equipment or software. 



BUS - 80 IS HCftC 

It costs $100 for the. documentation and/or an 
additional $100 for the software on diskette. We 

highly recommend subscribing to the complete 
program — documentation PLUS software. 



In adopting this approach, we're going straight 
for the jugular (so to speak) 

We anticipate a very competitive market for business software 
relating to the TRS-80 within the next year, and wish to establish 
ourselves immediately in a dominant position In doing so, we are 
presuming over 1,000 partitipants in the BUS-80 project Pricing 
accordmgly, we truly feel BUS-80 will become such a fantastic 
bargam that few serious businessmen who intend to use a TRS-80 
withm their enterprise could* possibly pass up the value offered 
Really, how could you pass this up? 



We're sure you must be interested in just what 
you'll be getting ... 

Well, just about everything you need! Within the year, (and 
probably within six months) you'll receive a disk-based Inventory 
system — Accounts Receivable system — Accounts Payable 
system — General Ledger system — Sales — and Payroll 

We're not talking about stripped-down systems 

Elements of BUS-80 are already prepared and have 
been sold individually to satisfied customers for as 
much as $150. The Name/ Address system requires 
an entire diskette itself (over 50,000 bytes) with 
some optional subroutines relegated to another 
supplementary disk. 

Our magazine, SoftSide, has proven it can be done: significant 
software can be offered at extraordmary prices, attractmg a 
sufficient following to make the effort profitable 
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BUS-80 is not only competitive, it will set the 
standard by which value is compared. And that 
standard will be hard to meet. 

We would like it understood from the outset that while BUS-80 will 
deliver a core system for an extremely reasonable price, we'll also 
be offering other pieces of software for general sale Usually, 
BUS-80 participants will be given a discount — in any event, by 
today's standards, tremendous value will be realized The first 
element of BUS-80 is currently being offered for general sale. (See 
pages 52 and 53 for description of Inventory System II) 

That's the pitch — believe it — it's true! 

BUS-80 



The Business Software People - 



17 Briar Cliff Drive 
Milford, New Hampshire 03055 
603-673-5144 



! 



Okdy I Sign me up - at this price, I can't go wrong 

3 Documentation ONLY - SKK) 

n Documentation with disk software - $200 



L J Check /money order enclosed 



VISA jMaster Charge 



Please fill m all necessary information below 



1 Signature 




1 ExDires 


Interbank # 1 




Name 


Address 


CitY 


State Zio 



I 

I 
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SINK'UM 

George Blank 

Fire torpedoes ... er, no can do, Captain, 

the tubes are being reloaded. The 

problems keep on coming in this arcade 

level action simulation. To succeed 

requires careful planning and keen 

timing. What about the torpedoes ... 

you'll see! 

Level H,4K $4.95 

AIR RAID 

Small System Software 

High speed machine language program 

with large and small aircraft flying at 

different altitudes. Ground-based missile 

launcher aimed and fired from keyboard. 

Planes explode when hit, sometimes 

cause damage to nearby aircraft. Score 

tallied for hits and misses, saved for 

challenge by another player. 

Level! or II, 4K $14.95 

BUfincff 

APPOINTMENT LOG 

Michael Kelleher 

Perfect for the busy professional! Accepts 

name, addresses, meeting times, records 

subject matter, derives elapsed time, 

gives reports. 

Level II, 16K $9.95 

FILE HANDLING 

Circle Enterprises 

A must for file handling in BASIC. Lists 

names in file, search/edit file, record file 

on cassette. One suggestion for use: 

record names and telephone numbers, 

either one then callable by the other. 

Level II, 16K $9.95 

MAIL LIST I 

Michael Kelleher 

Economical version of disk-based mailing 

list programs. Requires only 16K with a 

single drive — can handle up to 1400 

names per disk, plus provisions made for 

some sorting options. 

Disk Only. 16K $19.9^ 



MAIL LIST II 

B U S-80-Th e B usi ness Software People® 
Complete mail list package for 32K, dual 
disk systems. Enter, update, merge, sort, 
print, mailing labels. 
Disk,32K $99.95 

PAYROLL 

Stephen Hebbler 

Programs included on this diskette are 
interactive — they ask questions in 
English and expect answers the same. All 
data files handled automatically on disk, 
no tapes are necessary. Comprehensive 
24-page manual with step-by-step in- 
structions included in the package. 
Disk ONLY $59.95 

SMALL BUSINESS BOOKKEEPING 

Roger W.Robitaille,Sr. 

Compatible with the popular Dome Book- 
keeping Journal sold in stationery and 
discount stores all over the country. 
Simplify record keeping, available with or 
without journal. 

Level I or 1 1 , 4K with journal, $22.00 
without journal, $15.00 

CASH REGISTER 

Roger W.Robitaille,Sr. 
Twelve customizable departments, stores 
up to 300 sale events by department and 
amount, shows daily sales report and 
performs cash-out routine. Can be used 
with screen printer to furnish receipts. 
Level! or II. 4K $10.00 

ACCOUNTS RECEIVABLE 

Michael Kelleher 

For any small to medium volume 
business requiring sophisticated control 
of accounts receivable. Based on Radio 
Shack BASIC for DOS 2.1, utilizes 
random file method of data management. 
Maintains up to 329 separate ledgers on 
each clean diskette. Optimum system 
designed for use with two disk drives, 
however the system may be used with 
one drive also. 
Disk. 16K mM 
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INVENTORY MODULAR 

Roger W. Robitaille, Sr. 
Construction of this program permits 
user to create subroutines customized to 
his own needs. Allows for inclusion of 
alpha information and data index code in 
the form of data statements within the 
program. 240 stock items can be 
contained using the full 6 data areas and 
2 piecesot alpha information. 
Level I or II, 16K $20.00 

INVENTORY II 

BUS-80-The Business Software People® 

Keep current on price increases, low- 
on-stock items, shrinkage, profit versus 
loss, with this efficient and prompt 
method of surveying your inventory 
levels. Helps you achieve optimum 
management — can handle up to 1 ,000 
items per clean disk. Complete with 
documentation. 

$150.00 
INVENTORY 2.2 

Allows for creation, maintenance and 
review of over 2,000 items per clean disk. 
Operates under Radio Shack Disk BASIC, 
DOS 2.1. Utilizes random files with 6 
subrecords per random file buffer, 
allowing maximum utilization of diskette 
space. 
Disk,16K $59.95 

fPCCIAL 
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MOVING SIGNBOARD 

Circle Enterprises 

Machine language program designed to 
use TRS-80asa display device. User may 
type in up to a full screen of text, store in 
memory and then cause it to crawl across 
the screen in the manner of an electronic 
marquee. Shades of Times Square! 
Leve11orll,4K $9.95 



EDUCATOR ASSISTANT 

Steve Relsser 

Five programs of value to educators. 
Computes percentage, individual student 
averages, class averages, standard test 
scores, final grades. Usable from elem- 
entary to post-doctoral levels. 
Level II, iSK $9.95 

Disk,32K $14.95 

8080-Z80 CONVERSION 

Michael Kelleher 

Permits you to enter 8080 codings and 

then returns with the Z80 equivalent. 

Also stores equivalents in the order 

entered, for review at later time. 

Level II, 16K $15.00 

RENUMBER 

Lance Micklus 

Can renumber a 12K program in only, 
thirty-two seconds! Offers complete usef 
control with respect to which lines are 
renumbered and how, including all 
GOSUB's and GOTO's. Runs in 1300 
bytes of high memory regardless of 
program size. Loads from and operates on 
either disk- or tape-based programs. 
Specify 4, 16, 32 or 48 K version when 
ordering. 

Level II, {specify K) $15.00 

Source List $20.00 

Disk, all 4 versions on 1 disk $25.00 

MACHINE LANGUAGE MONITOR 

Small Systems Software 

Twenty-two commands interact directly 
with Z-80 processor. Examine ROM's, 
test RAM, enter and execute machine 
language programs, read and write 
SYSTEM tapes, enter Z-80 breakpoints, 
symbolic dump disassembles object code, 
displays Zilog standard mnemonics. 
Memory may be displayed in HEX or two 
ASCII formats and can be edited, moved, 
exchanged, verified, filled, zeroetf, tested 
or searched for one- or two-byte codes. 
Continuous or one-line at atime memory 
dumps. 
Level I or II, 16K $26.95 



THREE MONITORS FOR DISK 

Small system Software 
Contains three versions on a single disk 
to load Into 16K through 48K TRS-80's 
with disk systems. Read your TRSDOS 
into memory using DISK read command, 
print disassembled listings with the 
SYMBOLIC dump and printre output 
command, then modify and reqrite to disk 
using DISK write command. 

$29.95 

CALCULATOR 

Roger W. Robitaille, Sr. 
Allows the TRS-80 to function as a 
calculator with one key function codes 
and the ability to carry totals. The four 
basic arithmetic functions are included 
along with the reciprocal, memory 
storage and retrieval, and reverse sign. 
Levellorll,4K $2.95 



RPN CALCULATOR 

Russell Starkey 

Self-documenting calculator program. 

Makes your TRS-80 function as a 

programmable calculator with scientific 

functions: add, subtract, multiply, divide, 

raise to power, square root, register 

arithmetic, Pi, kilo-, milli-. With 4-level 

stack, 100 memories, complete with 

fail-safe features to guard against 

user-error. 

Level II, 16K $9.95 



HAM RADIO 

Michael Kelleher 

If you're an amateur radio buff, this 
powerful program can put a lot more fun 
into your hobby. A few of the features: 
Amateur Frequency Allocations, Q Signal 
File, ID Timer, Propagation Forecasting, 
Log Routine, Callsign, Date RST, Mode, 
QTH and other information. Permits 
review of previously recorded log tapes. 
Level II, 16K $9.95 

Disk, 32K $24.95 



ELECTRONIC ASSISTANT 

John Adamson 

A group of eight subprograms designed 
to solve problems such as tuned circuits 
and active and passive filters. 
Level II, 16K $9.95 

PREFLIGHT 

Stephen Hebbler 

For use by private aviators. Aids in 
routine checks, fuel consumption pre- 
dictions, flight plan plotting, determines 
ETA according to departure time and 
destination information. 
Level II, 16K $20.00 

KVP EXTENDER 

Lance Micklus 

Correcting keyboard bounce is only one of 
the many problems this versatiel program 
addresses. Also corrects upper case lock, 
permits use as a terminal and more. 
Tape $24.95 

Disk $29.95 

ST80 SMART TERMINAL 

Lance Micklus 

Turns your TRS-80 into an intelligent 
computer terminal. Features include 
CONTROL key, REPEAT key, ESC key, 
RUN key and a functioning BREAK key. 
Also permits listing of incoming data on 
lineprinter. You can reprogram the RS 
232 C switches from the keyboard, 
making baud rate changes simple. 
Level II, 16K $49.95 

BASIC STATISTICS 

Steve Reisser ^ 

A power packed set of procedures 
particularly helpful to anyone using 
random order, central tendency, Pearson 
product-movement correlation coefficient 
Chi-square, Fisher T-test, Z-scores, 
standard scores, sample analysis of 
variance. Random number generator 
built in to simulate data. 
Level II, 16K $20.00 
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MICRO TEXT EDITOR 

Don Coons 

Versatility in text composition and editing 
through the use of a non-destructible 
cursor, graphics capability and interface 
option with cassette tape or either TRS-80 
printer. Conrimands include: Delete, 
Insert, ASCII Code, Repeat, Print, Save, 
Load, Clear, End. 

Levelll,4Kor16K $9.95 

TEXT-80 

Frank Rowlett 

Turn your TRS-80 into a word-processing 
system. Includes features such as cut and 
paste, delete/insert by character or line, 
local/global change options, variable 
tabulation, full cursor control, upper and 
lower case (with proper hardware) and 
more... Fully supports disk and line 
printer. Use in conjunction with KVP and 
a letter-quality printer for personalized 
form letters. 
Disk,32K $59.95 
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TAROT 

Frank B. Rowlett, Jr. 

Probably the best future-gazing type 

program ever. Unlike many programs 

whose appeal wears out quickly, the 

combination of graphics and presentation 

leads to continuing use. Try it - you'll 

like it! 

Level lor II, 16K $9.95 

BIORHYTHMS 

Frank B. Rowlett, Jr. 

There is a theory that everyone is subject 
to a group of life cycles which affect their 
daily lives. The rates of the cycles are 
mathematically fixed, and lend them- 
selves to computer analysis. This 
program unravels those interrelated 
formulae into a meaningful graphic 
representation for you to interpret. 
Level I or II, 4K $4.95 



PERSONAL FINANCE 

Lance Micklus 

This is a 2 program package. Checkbook 
is used to maintain your checking account 
and Checkfinder maintains a file of all 
your cancelled checks. Thirty-three 
different budgets can be set up to assign 
each check to. The budget names are in 
DATA statements at the end of both 
programs so they may be easily changed 
by the user to fit his individual needs. 
Checkbook includes a test date generator 
which may be used to demonstrate the 
program, or to make test runs on the 
program without the need to use real 
checks. The menu format makes it easy 
to change functions, and the program is 
human engineered to require the least 
number of keyboard actions. The design 
of the program is such that human error 
is minimized. Besides maintaining a 
balance, the program will justify your 
account against the bank's monthly 
statements. There's even a bill estimator 
to help you decide who gets paid this 
month. 

Checkfinder gets the cancelled checks 
from a data tape generated by the 
Checkbook program, and builds a cancel- 
led checks file. It will locate cancelled 
checks for you and total the amount of all 
checks found. So, if one of your budgets 
was alimony, it will locate every alimony 
check that came back from the bank. 
Really impresses the IRS. A modified 
bubble sort will rearrange the file in 
memory and save it on tape. Checkfinder 
will store 900 checks in memory on a 16K 
machine. We assume no liabilities 
regarding the use of these programs. 

Level II, 16K $9.95 



ADVANCED PERSONAL FINANCE 

Lance Micklus 

This version includes all the features 

above PLUS an advanced analysis 

routine. Supports Disk Files. 

Disk,32K $24.95 



KEYBOARD 80 

John Adamson 

Plays music on your TRS-80 keyboard. A 
machine language program which loads 
with SYSTEM command. Three-octave 
diatonic scale organ lets you play many of 
your favorite songs right on the com- 
puter's keyboard! Simply load program 
and plug the "AUX" line into any audio 
amplifier and play. 

Level II, 16K $9.95 

HOME FINANCIAL MANAGEMENT 

M. D. Kelleher 

Turns your computer into a personal 
financial advisor. Easy to use, yet 
complete enough to be of real use. 
Features include: Loan payment amount, 
savings balance, dividends and with- 
drawals, earned interest rate, true cost of 
automobile, budget, cost of borrowing, 
balance of loans still owing, probability of 
obtaining a loan, plus more! 
Level II, 16K $9.95 
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SARGON HANDBOOK 

Dan & Kathe Spracklen 
Complete documentation covering all 
algorithms in Sargon can be found In this 
guide book. Contains complete tabfe of 
contents, block diagram of the program, 4 
part introduction, Z-80 listing, index to 
subroutines. Fully annotated. 

$14.95 + $1.00 

THE BASIC HANDBOOK 

Dr. David A. Lien 

A definitive reference/idea book. Ex- 
plains over 50 favorite versions of the 
BASIC language in detail as used in 
micros, minis and mainframes. Every- 
thing you need to know about the most 
important statements, functions, op- 
erators and commands. From the same 
author as the TRS-80 Users/Learners 
Manual. 
360 pages $14.95 + $1 .00 shipping 



Z80 INSTRUCTION HANDBOOK 

Sceibi Publications 

Convenient pocket-size manual describes 
Z80 capabilities in easy-to-understand 
terms. Designed as a practical reference 
to mnemonics, machine codings, usage, 
for programmers of every level — 
beginner to professional ^ anyone 
working In Z80 machine or assembler 
language. Appendixed. $4.95 
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DIGITAL CASSETTES 

Premium quality recording tapes with 
5-screw casings. Sold in boxes of 10 
ONLY, either size. 

C-10 $6.50-1- $1.00 shipping 
C-20 $7.50 + $1.00 shipping 

DISKETTES 

Dysan 104/1, 5.25 Inch one-sided. 

Certified error-free. 

Box of 5 diskettes $24.95 + $1.00 sh. 

Verbatim TRS-80 compatible, with self- 
checking calibration. 

Box of 10 $34.95 + $1 .00 shipping 

STORAGE BOX 

Hard plastic, holds and protects 10 
diskettes. $5.00 
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Ready to get serious? SUBSCRIBE TO PROG/80 the magazine 
dedicated to serious programmers ... beginners to professionals 



USA 
Bulk mail-$10.00 
First Class mail-$14.00 
Overseas alrmail-$18.00 



SUBSCRIPTION RATES - 4 Issues per year 
Canada 



Mexico 
APO/FPO 
Overseas surface matt 



I $14.00 



DCheck/ Money order inclosed O Master Charge O VISA 



SIGNATURE. 



ACCOUNT #- 



EXP. OATE« 
NAME 



.INTER* #_ 



ADDRESS- 
CITY 



_ STATE. 



.Zlf>_ 



Telephone orders accepted for Master Charge or VISA accounts/Call Monday through 
Friday. 9:30 to 5:30 EST at 603-673-5144 

P0 60X68 MILFORD.NH 03055 




BACK ISSUES 

OCTOBER 
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NOVEMBER 

♦En<l Zmie «TFoli'« Oold •S^oi^ing List «Oclsil 
to Hi^adeclmal <mtdi I to Lemi II Convemicm 
♦Saa Coete PmaUf ♦What Tim Hev^ Told You 



DECEMBER 

♦Spellij^ipSee •Santa Pamvia «r* Fiuma<Jcio 
♦Sldrhytlims •Six Mlttlon Dollar Ciock • Ohei^ 
Clo<^ •Morl^ge C^teulatioR 



JANUARY 



•'Bound ^e Horrr •Writing Qood Compytar 
Gam«0 'Tan Pin Bowling *Hi§h Speed 
OrapNc$ •Compyl^A^^^tch •Kiddy Slot 



FEBRUARY 
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^<km^sm i^NDAm «writii^ oood <:^mi^m 
MARCH 
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APRIL 
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|Clia<*;liodaf| *Serft^ arooi^ ♦Doii*t It Mal^ 
My Brown Ejf«s 6i4ia •Spring Flowfsra 

Ordering liiformatien 

While stilt available^ hmnk ra^iiaa ara $2M^ 
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W3-673-5144 
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TEN PIN 

by Franh Rovvtott 

Although its popularity 
seems to have dimin- 
ished somewhat in recent 
years, bowling is still the 
most popular participant 
sport in America. As the ad 
goes, there's just something 
about the thrill of setting em 
up and knocking *em down. 
Many bowling simulations have 
been written — this version 
comes closest to the real thing — 
this side of renting shoes! 
Ny Level II, 16K- $7.95 
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